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About This Book 


This book supplies the programming information you need to 
use the AS/400 asynchronous communications support. This 
book and the ICF Programming book are intended to be 
used together. You should be familiar with the concepts 
explained in the ICF Programming book and apply those 
concepts to the detailed information presented here for asyn- 
chronous communications. 


This book does not discuss the use or configuration of ASCII 
work stations attached to work station controllers. For infor- 
mation about attaching ASCII work stations to the AS/400 
system, see the ASCII Work Station Reference book. 


For a list of related publications, see the “Bibliography.” 


Who Should Use This Book 


This book is intended for programmers who write commu- 
nications programs using asynchronous communications. It 
may be used by AS/400 programmers and programmers 
using other systems and devices that communicate with the 
AS/400 system using asynchronous communications. 


This book also contains information for the AS/400 user who 
needs information about how to use the interactive terminal 
facility (ITF). 


Before you use this book, you should be familiar with the fol- 
lowing information: 


e¢ AS/400 programming and communications terminology. 
e Terminology of the remote system or devices. 


¢ General communications concepts. In addition, specific 
communications topics are discussed in the InfoSeeker. 
For more information on basic communications, you can 
also refer to the Discover/Education course in the com- 
munications module. The Discover/Education course 
can be ordered separately. 
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¢ Communications configuration information for asynchro- 
nous support as described in the Communications Con- 
figuration book. 


e Intersystem communications function (ICF) support 
described in the /CF Programming book. 


e If you are using asynchronous communications over 
X.25 lines with integrated packet 
assembler/disassembler (PAD), you should be familiar 
with CCITT recommendations X.3, X.28, and X.29. For 
more information about X.25 line capabilities, see the 
X.25 Network Support book. 


Prerequisite and Related Information 


For information about other AS/400 publications (except 
Advanced 36), see either of the following: 


e The Publications Reference book, SC41-5003, in the 
AS/400 Softcopy Library. 

e¢ The AS/400 Information Directory, a unique, multimedia 
interface to a searchable database that contains 
descriptions of titles available from IBM or from selected 
other publishers. The AS/400 Information Directory is 
shipped with the OS/400 operating system at no charge. 


Information Available on the World Wide 
Web 


More AS/400 information is available on the World Wide 
Web. You can access this information from the AS/400 
home page, which is at the following uniform resource locator 
(URL) address: 


http://www.as400. ibm.com 


Select the Information Desk, and you will be able to access a 
variety of AS/400 information topics from that page. 
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Chapter 1. Introduction to Asynchronous Communications Support 


IBM* Operating System/400* (OS/400*) asynchronous com- 
munications support allows an AS/400* application program 
to exchange data with a remote system or device using 
either an asynchronous (start-stop) or X.25 line. AS/400 
application programs can be written in ILE COBOL/400*, ILE 
RPG/400*, ILE C/400*, or FORTRAN/400* languages. Asyn- 
chronous communications support includes file transfer 
support (also used with other communications types) and 
interactive terminal facility (ITF). 


Asynchronous communications support provides program-to- 
program and program-to-device communications between 
systems that use asynchronous (start-stop) or X.25 lines. 
For X.25 lines, it also supplies an integrated packet 
assembler/disassembler (PAD)! that follows CCITT recom- 
mendations X.3, X.28, and X.29. 


File transfer support (FTS), called from your application 
program, is a function of the operating system that moves file 
members from one system to another by using asynchro- 
nous, APPC, or BSCEL communications support. See the 
ICF Programming book for more information about file 
transfer support. 


Interactive terminal facility (ITF) allows AS/400 work stations 
to connect to applications such as the Telemail** service of 
the TELNET data network. Using ITF, you can send and 
receive data, memos, and AS/400 file members. You can 
also send text from OfficeVision documents. See Chapter 8 
for more information about ITF. 


AS/400 programs can start programs on a remote system, 
and the remote system can start programs on the local 
system. Security options for both systems are supported. 


Note: It is the responsibility of the application program to 
provide error detection, recovery, and data acknowledge- 
ment. Data may be lost or received out of sequence if the 
application program does not provide these checks. When 
an asynchronous (start-stop) line is used, the physical line 
can be switched or nonswitched. For switched lines, 


momentary drops of the CTS signal are not detected by the 
AS/400 system. However, long-term drops of the CTS are 
detected and fed back accordingly. See Appendix B, 
“Return Codes, Messages, and Sense Codes” on page B-1 
for return code information. When an X.25 line is used to 
connect directly to a packet-switching data network (PSDN), 
the physical line is nonswitched, but the connection through 
the network to another system can be a permanent virtual 
circuit (PVC) or a switched virtual circuit (SVC). A perma- 
nent virtual circuit (PVC) is a virtual circuit that has a 
logical channel permanently assigned to it at each data ter- 
minal equipment (DTE). A call establishment protocol is not 
required. The permanent virtual circuit establishes the iden- 
tity of the called party within the network services contract. A 
switched virtual circuit (SVC) is a virtual circuit that is 
requested by a virtual call. It is released when the virtual 
circuit is cleared. 


The number of communication lines available for asynchro- 
nous communications is dependent on the size of your 
system and the type of communications adapters attached. 


Figure 1-1 shows an overview of the OS/400 asynchronous 
communications support. 


Interactive Terminal 
Facility 


Application Program 


File Transfer 
Support 


ntersystem Communications Function (ICF) File 


Asynchronous Communications Support 


Integrated 
PAD 


Start/Stop X.25 
Communications Communications 
Subsystem Subsystem 


Figure 1-1. OS/400 Asynchronous Communications Support 


1 A functional unit that enables data terminal equipment (DTE) not equipped for packet switching to use a packet-switched network. The data 
terminal equipment (DTE) is that part of a data link that sends data, receives data, and provides the data communications control function 


according to protocols. 
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Chapter 2. Asynchronous Communications Support 


This chapter describes the configurations and communica- 
tions environments that are possible using asynchronous 
communications support. Asynchronous communications 
support allows you to send data to and receive data from a 
remote program or device attached by either an asynchro- 
nous (start-stop) or an X.25 line. Your application program 
must provide the data stream required by the remote device. 
Asynchronous communications support packages your data 
stream in either a start-stop format or within X.25 data 
packets. 


You must provide an application program on the AS/400 
system to communicate with the remote device. The ICF 
operations your program uses to communicate with the 
remote device are the same as those used to communicate 
with another AS/400 system. The intersystem communica- 
tions function (ICF) is a function of the operating system 
that allows a program to communicate interactively with 
another program or system. See Chapter 6 for a description 
of the ICF operations. For more information about config- 
uring for asynchronous communications, see the Commu- 
nications Configuration book. 


Asynchronous Communications on 
Start-Stop Lines 


Asynchronous support allows an AS/400 system to use an 
asynchronous (start-stop) line to communicate with another 
start-stop device. Possible devices include: plotters, 
printers, terminals, modems, X.25 network-supplied packet 
assembler/disassemblers (PADs), another AS/400 system, a 
System/36, or an IBM personal computer. The remote 
device can be attached by a switched or nonswitched asyn- 
chronous line. 


The following are some of the parameters you need to 
specify on the asynchronous communications line 
description. Use the Create Line Description (Asynchronous) 
(CRTLINASC) command to create the line description. 
These parameters must match the characteristics of the 
remote device. 


BITSCHAR Data bits per character: Specify 7 or 8 bits. 


CNN Connection type: Specify switched (*“SWTPP) 
or nonswitched (*“NONSWTPP) point-to-point 
to describe the physical start-stop communica- 
tions line being used. 


ECHO Echo support: Specify *NONE, *ALL, or 
*CNTL. 

EORTBL End-of-record table: Specify up to 8 individual 
characters. Up to 4 trailing characters can 
also be specified. 

FLOWCNTL ~~ -Flowcontrol: Specify whether or not flow 


control characters will be used to control the 
flow of your data stream. (The hexadecimal 
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values of the XON and XOFF characters can 
be specified using the XONCHAR and 
XOFFCHAR parameters.) 


IDLTMR Idle timer: Specify from 0 to 254 in 0.5 
second intervals. 

LINESPEED Line speed: Specify the line speed used, in 
the range of 50 to 19,200 bits per second. 

MAXBUFFER- Maximum buffer size: Specify from 128 to 
4096 characters. 

PARITY Type of parity: Specify ~EVEN, “ODD, or 
*NONE. 

STOPBITS Number of stop bits: Specify 1 or 2 bits. 


Nonswitched Line Support 


You should use a nonswitched asynchronous line description 
and an asynchronous controller description configuration 
when: 


e¢ The AS/400 system is attached to a nonswitched 
modem. 


e The AS/400 system and the asynchronous device are 
connected by a modem eliminator or null modem. 


¢« The AS/400 system and the remote device are con- 
nected by limited distance modems. 


e The attached modem is a command-capable modem. 
This modem is configured to hold the Data Set Ready 
(DSR) signal active when the Data Terminal Ready 
(DTR) signal is active or when the modem is powered 
on. 


Switched Line Support 


You should use a switched asynchronous line description 
and an asynchronous controller description when the AS/400 
system is attached to a switched modem. An asynchro- 
nous controller description represents a remote system or 
device when using asynchronous transmission methods on 
an asynchronous communications line or when using 
non-SNA protocols on an X.25 communications line to com- 
municate with the system. The following types of switched 
modems can be attached to an AS/400 system: 


e Manual dial/answer modems 


The connection to the remote system is made by manu- 
ally dialing or answering the modem. 


e V.25 bis modems (single line, capable of serial auto- 
matic dialing) 


When a V.25 bis modem is attached and configured, the 
AS/400 system issues a dial command to the modem at 
the time your program acquires the asynchronous 

device. The number used in the dial command is config- 


ured in the asynchronous controller description attached 
to the device you are acquiring. No other action is 
required by your application program to start the dial 
operation to this type of modem. 


Note: V.25 bis over an asynchronous line is not sup- 
ported by all modems. Ensure that your modem sup- 
ports V.25 bis over asynchronous lines. Device type 
5853 supports V.25 bis only over a synchronous line. 


e Intelligent or command-capable modems 


Asynchronous support allows the attachment of 
command-capable modems and provides a path through 
which your application program can send commands to 
prepare the modem. Your application program may 
code the modem command sequence in a high-level lan- 
guage (HLL) and send the data to the modem using a 
write operation. All modem commands and responses 
appear as application data to the asynchronous support, 
and are handled as such. 


These types of modems are typically capable, by 
external switches or keypad configuration, of treating the 
Data Set Ready (DSR) signal in one of three ways: 


1. Holding DSR signals active at all times when the 
modem is powered on. 


2. Making DSR signals active when Data Terminal 
Ready (DTR) is active. 


When the modem is configured as in cases 1 and 2, 
nonswitched asynchronous line and controller 
descriptions should be used. 


3. Making DSR signals active only after a successful 
connection with a remote modem and during the 
communications with that modem. 


Asynchronous support allows data to be exchanged 
between the application program and the modem 
without the DSR signal being active. The modem 
initialization and dial commands can be issued by 
the program on a write operation. 


To use this support, specify the following parame- 
ters on the Create Line Description (Asynchronous) 
(CRTLINASC) command: 


CRTLINASC ... INLCNN(*SWTPP) SWTCNN(*DIAL) 
AUTOANS(*NO) AUTODIAL(*YES) 
DIALCMD (*OTHER) 


You must specify the following parameters on the 
Create Controller Description (Asynchronous) 
(CRTCTLASC) command: 


CRTCTLASC ... SWITCHED(*YES) INLCNN(*DIAL) 
CNNNBR(connection-number) 


The connection number is a required parameter and 
is used only if the line is changed to V.25 bis or 
manual call. 
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Note: Hardware flow control is not supported on the AS/400 
system. 


Asynchronous (Non-SNA) 
Communications on X.25 Lines 


Asynchronous communications support allows the AS/400 
system to use X.25 lines to communicate with another 
packet-mode host. It also allows the AS/400 system, acting 
as a packet-mode host, to communicate with start-stop 
devices that are connected to a packet-switching data 
network through a PAD. 


The physical X.25 communications line can be switched or 
nonswitched. A nonswitched connection through the network 
to another system can be a permanent virtual circuit (PVC) 
or a switched virtual circuit (SVC). A switched connection 
through the network to another system must be a SVC. For 
additional information on X.25 switched or nonswitched lines, 
see the Communications Configuration book. 


The terms permanent virtual circuit (PVC), incoming switched 
virtual circuit (SVC-IN), and outgoing switched virtual circuit 
(SVC-OUT) are used in the remainder of this chapter to refer 
to the various connection capabilities of the asynchronous 
controller descriptions that are attached to X.25 line 
descriptions. 


The Create Controller Description (Asynchronous) 
(CRTCTLASC) command is used to specify PVCs and SVCs. 
PVCs are configured as SWITCHED(*NO) in the controller 
description; SVCs are configured as SWITCHED(*YES). The 
Initial Connection (INLCNN) parameter is used to specify 
SVC-IN (INLCNN(*ANS)) or SVC-OUT (INLCNN(*DIAL)). 


Connecting Systems without a Network 
(DCE-to-DTE) 


Asynchronous communications support using X.25 lines can 
be configured by connecting your AS/400 system to data ter- 
minal equipment (DTE) through a modem eliminator (or 
equivalent) instead of attaching through an X.25 packet- 
switching data network. 


When this method is used, the AS/400 system acts as data 
circuit-terminating equipment (DCE) to the remote DTE. 

Data circuit-terminating equipment (DCE) is the equipment 
installed at the customer location that provides all the func- 
tions required to establish, maintain, and end a connection, 
and the signal conversion and coding between the data ter- 
minal equipment and the line. The remote system (DTE) 
can, for example, be a System/36 or another AS/400 system. 
The remote DTE acts as though it is attached to an X.25 
network, but no packet-switching data network (PSDN) is 
involved in the connection. 


Connections to a Packet-Switching Data 


Network 


Asynchronous communications may be run on an X.25 
PSDN. This is done by creating asynchronous controller and 
device descriptions and either an X.25 or an asynchronous 
line description. Figure 2-1 on page 2-3 shows the config- 
urations supported. 
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This figure is an illustration of the configurations that are supported. 
Figure 2-1. X.25 Packet-Switching Data Network 


Connection [J uses asynchronous support on an asynchro- 
nous (start-stop) line through a switched connection to the 
PSDN. Connections J through use asynchronous 
support on separate X.25 lines through physically switched or 
nonswitched connections to the PSDN. 


EF Switched dial connection to a network PAD 


This is a switched dial connection using asynchronous 
communications support on an asynchronous (start- 


RSLS460-3 


stop) line. A call is made from the AS/400 system to a 
network PAD. Your application program can then com- 
municate with the PAD to establish a virtual circuit with 
a packet-mode host that is attached to the network. 


The packet-mode host (any non-SNA, X.25 host 
system) could be another AS/400 system configured to 
accept calls from any network address. See the dis- 
cussion of generic controllers and devices under [J 


and &j. 
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Permanent virtual circuit (PVC) connection 


This type of connection is used when the network sup- 
ports permanently established circuits. No connection 
is allowed to any network address other than the one 
specified in your network subscription. This is similar 
to using a nonswitched connection on an asynchronous 
(start-stop) line. 


Outgoing switched virtual circuit (SVC-OUT) to a spe- 
cific network address 


This type of connection is used when you know the 
network address of the system that will accept your 
call. This connection only initiates calls and estab- 
lishes a virtual circuit with the network address speci- 
fied in the asynchronous controller description. 


Use this type of connection only when you want to ini- 
tiate calls to a specific network address. If that 
address is not valid, busy, or otherwise unable to 
accept the call, the call is rejected. 


The first byte of the call user data (protocol field) in the 
X.25 call packet used to establish a virtual circuit con- 
tains hex CO to distinguish asynchronous communica- 
tions from Systems Network Architecture (SNA) 
protocols. 


Outgoing switched virtual circuit (SVC-OUT) with inte- 
grated PAD support 


This type of connection is used when you want to 
establish a virtual circuit with a packet-mode host that 
accepts calls from a PAD. 


The first byte of the call user data (protocol field) in the 
X.25 call packet used to establish a virtual circuit con- 
tains hex 01 to inform the host system that the call is 
from a PAD. 


The asynchronous communications integrated PAD 
provides the following support: 


¢ CCITT recommendations X.3, X.28, and X.29 


— X.3 defines the PAD parameters that the PAD 
uses to control data and service signals to 
and from the application program. These 
parameters can be set by the application 
program or the packet-mode host. 


— X.28 defines the control procedures used to 
establish a virtual connection to a packet- 
mode host, the PAD commands the applica- 
tion program can send to the PAD, and the 
PAD service signals the program can receive 
from the PAD. 


— X.29 defines the PAD messages sent between 
the packet-mode host and the PAD. 


e Rotary dial support 


The PAD attempts to establish a virtual circuit with 
an address contained in a list of network 
addresses. The PAD network address list is 
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created using the Create Configuration List 
(CRTCFGL) command. 


Incoming switched virtual circuit (SVC-IN) from a spe- 
cific network address 


This type of connection is used when you know the 

network address of the system that initiates the call. 
This connection only accepts calls and establishes a 
virtual circuit with the address specified in the asyn- 
chronous controller description. 


Use this type of connection only when you want to 
accept calls from a specific network address. Calls 
received from a network address other than the one 
specified are rejected. 


Incoming switched virtual circuit (SVC-IN) from any 
network address (generic controller and device) 


This type of connection requires that you configure a 
generic controller and device description. This is done 
by specifying CNNNBR(*ANY) and INLCNN(*ANS) in 
the controller description and specifying 
RMTLOCNAME(*NONE) in the attached device 
description. 


This type of connection allows you to accept a call 
request from any network address. The asynchronous 
support decides if the incoming call should be accepted 
based on the following: 


e¢ The remote or calling system must have the fol- 
lowing configured on the controller description: 


— Remote verify (RMTVFY(*YES)) 
— Local location name (LCLLOCNAME) 
— Local identifier (LCLID) 


Connection examples —§, Ey, and Bq can be 
used to establish a circuit with a generic controller. 


e The local location name and identifier from the 
above step must be entered in the asynchronous 
remote location list of the system receiving the 
call. Asynchronous remote location lists can be 
created and changed using the Create Configura- 
tion List (CRTCFGL) and Change Configuration 
List (CHGCFGL) commands. See the Commu- 
nications Configuration book for more information 
about using these commands. 


e The calling system’s local location name cannot be 
configured as the remote location name in any 
device description used by the system receiving 
the call. 


Once the call is accepted, the remote verification 
parameter (configured on the remote or calling system 
as the local location name in the controller description 
and on the local system in the remote location list) 
becomes the remote location name (RMTLOCNAME) 
of the attached asynchronous device description. 
When this occurs, the asynchronous device can be 
acquired by a local program or it can receive program 
start requests. 


If the remote verification parameter is not defined in the 
asynchronous remote location list, the call is not 
accepted. 


Remote devices can also connect to an AS/400 system 
on an X.25 network through generic controllers and 
device descriptions. When an incoming call is received 
by a generic controller, an ID prompt is sent to the 
calling device requesting its location name and location 
identifier. This ID prompt consists of the following 
ASCII data stream: 


<syn>ID<syn> 
where <syn> = hex 16 


When the device receives this prompt, it must respond 
by sending its location name and location identifier in 
the following format: 

@<location name><location identifier><CR> 

where: 


<location name> and <location identifier> 
represent 8 alphanumeric ASCII characters, left- 
justified and padded with blanks. 


The carriage return character (<CR>) is hex OD. 
@ is the keyboard at sign (hex 40). 


If the location name and location identifier received by 
the generic controller are in the system's remote 
location list, the call is accepted. Otherwise, the call is 
rejected and the connection is dropped. 


When the call is accepted, the asynchronous commu- 
nications support responds with the following ASCII 
data stream: 


<ETX><CR><LF>CONNECT<CR><LF> 


where: 

<ETX> = hex 03 
<CR> =hex 0D 
<LF> = hex 0A 


Incoming switched virtual circuit (SVC-IN) from any 
network address (generic controller only) 


This type of connection requires that you configure a 
generic controller. This is done by specifying 
CNNNBR(*ANY) and INLCNN(*ANS) in the controller 
description. 


As discussed under item [fJ, this type of connection 
allows you to accept a call from any network address. 
However, because you have configured a remote 
location name in the device description, your program 
may attempt to acquire the device before an incoming 
call is received. The acquire operation will not com- 
plete until an incoming call is received. 


Remote verification is not done when using this type of 
connection; therefore, you should specify no remote 
verification (RMTVFY(*NO)) on the controller 
description for the remote or calling system. 


Chapter 2. Asynchronous Communications Support 2-5 


2-6 AS/400 Asynchronous Communications Programming V4R1 


Chapter 3. Using the Integrated Packet Assembler/Disassembler Support 


Packet assembler/disassembler (PAD) is normally used to 
allow the attachment of start-stop devices to a packet- 
switching data network (PSDN). This is done by converting 
the start-stop data stream into X.25 data packets. Integrated 
PAD support provides the same support for user-written pro- 
grams, file transfer, and ITF as a network PAD provides for 
start-stop devices. This support includes: 


e Establishing sessions between your program and a 
packet-mode host 

e Processing PAD messages received from the packet- 
mode host 

e Processing PAD commands received from your applica- 

tion program and responding with PAD service signals 

Handling functions that depend on PAD parameter set- 

tings 

e Routing data between your application program and a 
packet-mode host 


You should consider using integrated PAD support when: 


e You have an X.25 line connected to a packet-switching 
data network (PSDN) 

e You want to communicate with a packet-mode host 
using your application program or ITF 

¢ The packet-mode host communicates with start-stop 
devices that are connected to the network through a 
PAD 

e The packet-mode host only accepts call requests from a 
PAD 


Using the PAD 


You can configure an asynchronous controller to emulate a 
PAD using the PADEML parameter on the Create Controller 
Description (Asynchronous) (CRTCTLASC) command. The 
integrated PAD support follows CCITT recommendations X.3, 
X.28, and X.29. CCITT is the abbreviation for the Interna- 
tional Telegraph and Telephone Consultative Committee. 
These recommendations are as follows: 


¢ X.3 defines the PAD parameters that the PAD uses to 
control the session 


e X.28 defines the PAD commands and service signals 
exchanged between the PAD and an AS/400 application 
program 

¢ X.29 defines the PAD messages that are exchanged 
between a packet-mode host and the PAD 


Figure 3-1 shows the relationship between the PAD and the 

CCITT recommendations. This figure shows an illustration of 
the relationship between the PAD and the CCITT recommen- 
dations. 
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Figure 3-1. CCITT Recommendations 


To use the PAD support, your application program must 
acquire a session with an asynchronous device that is 
attached to an asynchronous/X.25 controller. The controller 
must be configured for PAD emulation by specifying 
PADEML(*YES). Your application program can acquire a 
session with the PAD even though a connection to a remote 
system has not been established. 


The values specified for the PAD parameters determine how 
the PAD operates on the data sent and received by your 
program. You can change the way the PAD operates by 
changing the values of the PAD parameters. This is done 
using the appropriate PAD commands. The packet-mode 
host can also change the values of the PAD parameters by 
issuing the appropriate PAD messages. 


PAD commands are sent as data on write operations that are 
issued by your application program. Any resulting PAD 
service signals are returned to your program as data on the 
next read operation. PAD commands can only be issued 
when the PAD is in command mode. 


A connection with a remote system can be made by issuing 
the PAD CONNECT command or by using the Rotary Dial func- 
tion. See “Rotary Dial” on page 3-7 for more information. 


Once a connection to a remote system is made, the PAD 
enters data transfer mode. While in data transfer mode, your 
program can send data to and receive data from the remote 
system. You can enter command mode again if PAD param- 
eter 1 is set to 1. 
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PAD Parameters 


The following PAD parameters are used to control the 
session. The packet-mode host can set and read these 
parameters by sending a SET, SET and READ, or READ PAD 
message to the PAD. An application program can change or 
read these parameters by issuing a SET, SET?, or PAR? PAD 
command. 


Parameters marked Not supported in the following table are 
those that the PAD ignores because they are not used by the 
programs supported on the AS/400 system. Any attempt to 
read or change these parameters causes an error to be 
reported, as follows: 


e If a SET, READ, or SET and READ PAD message is 
received by the PAD from a packet-mode host for a 
parameter marked Not supported, the asynchronous 
support sends a Parameter Indication PAD message 
indicating the parameter in error. 


e If a SET, SET?, or PAR? PAD command is received by the 
PAD for a parameter marked Not supported, the asyn- 
chronous support indicates that the parameter reference 
is in error by returning the parameter value INV in the 
PAD service signal. 


Figure 3-2. PAD Parameter Chart 


Parameter Description Values and Meanings 
1 Escape to 0: No escape possible 
command mode 1: Escape possible 
Default: 1 
2 Echo 0: PAD does not echo 
1: PAD will echo characters 
Default: 1 
3 Data forwarding 0: None 
characters 2: Carriage return 
Hone aw NOS La 
values represent : : nee 
the penianes 126: All characters in columns 1 and 2 of 
acters defined in re He C-2 on page C-2, plus DEL 
Figure C-2 on efault: 
page C-2. 
4 Idle timer Not supported 
5 PAD suspension Not supported 
of input 
6 Suppression of 0: Suppress signals 
service signals 1: Deliver signals 
Default: 1 
7. Break options 0: Do nothing 
1: Send interrupt 
2: Reset 
8: Escape to command mode 
21: Discard pending data at the PAD, send 
interrupt, and send indication of break PAD 
message 
Default: 0 
8 Discard output 0: Deliver output 
1: Discard output 
Default: 0 
9 Carriage return Not supported 
padding 
10 Line folding 0: None 
1-255: Number of characters per line 
before line folding 
Default: 0 
11 Terminal speed Not supported 
12 Flow control of 0: Not possible 
PAD 1: Possible 
Default: 0 
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Figure 3-2. PAD Parameter Chart 


Parameter Description Values and Meanings 


13 


None 
To terminal 
In echoed data to terminal 


Line feed 0 
i 
4: 
5: Combination of 1 and 4 
6: 
f 
D 


insertion after 
carriage return 


Combination of 4 and from terminal 
Combination of 1, 4 and from terminal 


efault: 0 
14 Padding after Not supported 
line feed 
15 Editing Not supported 
16 Character delete Not supported 
17 Line delete Not supported 
18 Line display Not supported 
19 Editing PAD Not supported 
service signals 
20 Echo mask Not supported 
21 Parity treatment Not supported 
22 Page wait Not supported 


The PAD parameters are defined as follows: 


1 


10 


Escape to command mode 


This function allows the PAD to change from data 
transfer mode to command mode using the escape 
sequence, <CR>@<CR>. Although the PAD is in 
command mode, your program is still connected to the 
remote system. 


Note: Throughout this section <CR> refers to the car- 
riage return character (hex OD). 


Echo 


This function allows all characters you send to the PAD 
to be transmitted back to you at the same time the 
character is processed. 


Data forwarding characters 


This function allows you to define a set of characters 
that control how data is sent by the PAD to the packet- 
mode host. All data up to and including the defined 
character are sent together. Data from the last for- 
warding character to the end of the data stream is also 
sent together. This function is only supported in data 
transfer mode. 


Suppression of service signals 


This function allows you to determine whether or not 
you want to receive PAD service signals. 


Break options 


This function allows you to determine how the PAD 
operates when your application program issues a fail 
function. 


Discard output 


This function allows the PAD to discard any data 
received from the packet-mode host. 


Line folding 


This function allows you to set the maximum number of 
characters per line. The PAD automatically inserts the 
format effectors (layout characters). 


12  Flowcontrol of PAD 


This function allows you to control the flow of data 
between your application program and the PAD. 
Sending XON or XOFF characters indicates to the PAD 
whether or not your program is ready to receive data. 
The XON and XOFF characters are defined as (DC1) 
and (DC3) in Figure C-2 on page C-2. 


13 Line feed insertion after carriage return 


This function allows the PAD to automatically insert a 
line feed after a carriage return. This function is only 
supported in data transfer mode. 


The following parameters are not supported: 


4 - Idle timer 
5 - PAD suspension of input 
9 - Carriage return padding 
11 - Terminal speed 
14 - Padding after line feed 
15 - Editing 
16 - Character delete 
17 - Line delete 
18 - Line display 
19 - Editing PAD service signals 
20 - Echo mask 
21 - Parity treatment 
22 - Page wait 


PAD Commands 


PAD commands are used to manage a virtual circuit and to 
change the way the PAD operates. The PAD has two 
modes of operation: command mode and data transfer mode. 
While in command mode, your application program can send 
commands to the PAD and receive PAD service signals in 
response. Your program can enter command mode from 
data transfer mode by entering the escape sequence: 


<CR> @ <CR> 


Note: Throughout this section <CR> refers to the carriage 
return character (hex OD). 


When your program initially acquires a session with the PAD, 
the PAD is in command mode. Once you have established a 
connection with a packet-mode host, the PAD enters data 
transfer mode. If an end-of-session function is issued 
without disconnecting, and if SWTDSC(*NO) is specified on 
the controller description, the PAD resumes the last mode of 
operation and is still connected when your application 
program issues the next acquire operation. 


The following list describes the PAD commands available. 


¢ CONNECT 


This command is used by your application program to 
request establishment of a virtual call. It allows you to 
connect to a specified network address. Network 
addresses have a minimum length of 5 digits and a 


maximum of 17. The following CONNECT commands are 
allowed: 


1. Connect with no address specified 
Format: CONNECT 


If your application program issues a CONNECT 
command without specifying a network address, a 
connection is attempted using the network address 
specified in the connection number (CNNNBR) field 
of the controller description. If this is not the first 
connection attempt, the address with which you last 
attempted a connection is used. 


2. Connect with address specified 
Format: CONNECT <address> 


A connection is attempted to the specified address. 
The fully qualified network address is constructed by 
adding the address you specified to the data 
network identification code (DNIC) configured in the 
CNNNBR field of the controller description. The 
data network identification code (DNIC) is assumed 
to be the first 4 digits of the CNNNBR field and is 
used to identify the network. Once a connection 
has been attempted, the address you entered is the 
default for any subsequent connection attempts for 
which no address is specified. 


3. Connect specifying a fully qualified network address 
Format: CONNECT ODNIC <adadress> 


You can specify a fully qualified network address by 
preceding the address with a 0 (zero). This allows 
you to connect to a network address whose data 
network identification code (DNIC) is different from 
that specified as the first 4 digits of the CNNNBR 
field in the controller description. A connection is 
attempted to the fully qualified address. The data 
network identification code (DNIC) and address 
become the default for any subsequent connection 
attempts for which no address is specified. 


Note: The valid abbreviations for this command are C 
and CONN. 


RESET 


This command resets the session to the pre-connect 
status. This includes setting the PAD parameters to 
their default values and clearing the virtual call. 


STATUS 


Response to this command indicates whether a virtual 
circuit is connected or available. 


Note: The valid abbreviation for this command is STAT. 
DISCONNECT 


This command is used to request that the virtual call be 
cleared. Communications with the connected network 
address is discontinued. Another CONNECT command can 
be issued after this command to establish a virtual circuit 
with either the same or a different network address. 
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Note: The valid abbreviations for this command are D 
and DISC. 


¢ CONTINUE 


This command is used to return to data transfer mode 
when your application program is in command mode as 
a result of entering the PAD escape sequence. 


Note: The valid abbreviation for this command is CONT. 
¢ SET 


This command is used to change the values of the PAD 
parameters. If no list is provided, all PAD parameters 
are reset to the default values. The following SET com- 
mands can be used: 


1. Set all PAD parameters to the default values 
Format: SET 

2. Set the values of specified PAD parameters 
Format: SET <list> 


The parameter list following the SET command con- 
tains pairs of PAD parameters and values. Each 
pair of parameters is separated by a comma. The 
list has the following format: 


number: value, number: value, 
...,number: value<CR> 


¢ SET? 
This command is used to change the values of the PAD 
parameters and to read the current values after they are 
changed. If no list is specified, all PAD parameters are 


reset to the default values and all values are read. The 
following SET? commands can be used: 


1. Set and read all PAD parameters 
Format: SET? 

2. Set and read specified PAD parameter values 
Format: SET? <listé 


The parameter list following the SET? command con- 
tains pairs of PAD parameters and values. Each 
pair of parameters is separated by a comma. The 
list has the following format: 


number: value, number: value, 
.. number: value<CR> 


¢ PAR? 


This command is used to read the current values of the 
PAD parameters. If no parameters are specified, all 
values are read. 


1. Read all PAD parameters 
Format: PAR? 

2. Read specified PAD parameters 
Format: PAR? <list 


The parameter list following the PAR? command con- 
tains the numbers of the PAD parameters you want 
to read. Each number is separated by a comma. 
The list has the following format: 
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number, number, ...,number<CR> 


¢ PAD escape sequence 
The PAD escape sequence is used to enter command 
mode from data transfer mode. The sequence is: 
<CR>@<CR> 
e PAD prompt 


When in command mode, the PAD prompts for the next 
command by returning the PAD prompt service signal as 
data on the next read operation issued by your program. 
This prompt has the following format: 


* ENTER PAD COMMAND: 


Examples of SET, SET?, and PAR? 
Commands 


The following are examples of the SET, SET?, and PAR? com- 
mands. The examples show the PAD service signals 
returned in response to both successful and unsuccessful 
commands. 


¢ SET - parameter 1 is changed to value 0 and parameter 
7 is changed to value 4. 
PAD Command - SET 1:0,7:4<CR> 
PAD Response - none unless an error occurs 


¢ SET? - parameter 2 is changed to value 0 and param- 
eter 7 is changed to value 21. Read the values of these 
parameters after they are changed. 


PAD Command - SET? 2:0,7:21<CR> 
PAD Response - PAR 2:0,7:21<CR> 


¢ PAR? - read the value of parameters 1 and 7. 
PAD Command - PAR? 1,7<CR> 
PAD Response - PAR 1:0,7:21<CR> 
¢ SET - attempt to change the value of a parameter that is 
not valid. 
PAD Command - SET 23:0<CR> 
PAD Response - PAR 23: INV<CR> 
¢ SET - attempt to change a parameter to a value that is 
not valid. 


PAD Command - SET 7:3<CR> 
PAD Response - PAR 7: INV<CR> 


PAD Service Signals 


The following chart shows the PAD service signals issued to 
the application program in response to PAD commands. 


Figure 3-3 (Page 1 of 2). PAD Service Signals — Response to 
PAD Commands 


Message PAD Service Description 
ID Signal 
CPX6B76 CONNECTED Response to STATUS command when 


connected 
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PAD Commands 


Message PAD Service Description 
ID Signal 
CPX6B77 DISCONNECTED Response to DISCONNECT command 
when session is disconnected 
CPX6B78 AVAILABLE Response to STATUS command when 
not connected 
CPX6B79 <adadress> Response to CONNECT command 
CONNECTED when connection complete to speci- 
fied address 
CPX6B7B ERR PAD did not understand last 
command 
CPX6B7C INVALID ADDRESS Address supplied with CONNECT 
command is not a valid address 
CPX6B7D ALREADY Response to CONNECT command 
CONNECTED when already connected to remote 
system 
CPX6B7E NOT CONNECTED Response to DISCONNECT command 
when not connected to a remote 
system 
CPX6B7F * ENTER PAD PAD acknowledgment and prompt 
COMMAND: 


The following chart shows additional PAD service signals 
issued in response to your unsuccessful call attempts. 


Figure 3-4. PAD Service Signals — Response to Unsuccessful Call 
Attempts 


Message ID PAD Service Signal 

CPX6B64 CLR REJECTING 

CPX6B65 CLR CALL CLEARED 

CPX6B66 CLR NUMBER BUSY 

CPX6B67 CLR NOT REACHABLE 

CPX6B68 CLR NOT RESPONDING 

CPX6B69 CLR REFUSING COLLECT CONNECTION 
CPX6B6A CLR NOT OPERATING 

CPX6B6B CLR STILL PENDING 

CPX6B6C CLR NOT AVAILABLE 

CPX6B6D CLR ILLEGAL ADDRESS 

CPX6B6E CLR ILLEGAL SOURCE ADDRESS 
CPX6B6F CLR NETWORK CONGESTION 

CPX6B70 CLR INVALID FACILITY REQUEST 
CPX6B71 CLR LOCAL PROCEDURE ERROR 
CPX6B72 CLR REMOTE PROCEDURE ERROR 
CPX6B73 CLR INVALID LOGICAL CHANNEL TYPE 
CPX6B74 CLR CALL USER DATA ERROR 
CPX6B75 CLR NO LOGICAL CHANNEL AVAILABLE 


PAD Messages 


PAD messages allow the packet-mode host to change the 
PAD parameters as well as request that the PAD clear the 
virtual circuit. 


Two types of PAD messages are supported: requests from 
the packet-mode host and responses from the PAD. Each 
PAD message is defined by a message code. The following 


PAD messages and the associated message codes are sup- 
ported by the PAD: 


* Set (hex 02) 


Sent by the packet-mode host to change the PAD 
parameters. 


¢ Set and Read (hex 06) 


Sent by the packet-mode host to change the PAD 
parameters. The PAD responds by sending a 
Parameter Indication message. 


e Read (hex 04) 


Sent by the packet-mode host to find out what the PAD 
parameters are set to. The PAD responds by sending a 
Parameter Indication message. 


¢ Invitation to Clear (hex 01) 


Sent by the packet-mode host to request the PAD to end 
the connection. All previously received data is discarded 
and the PAD enters command mode after dropping the 
connection. 


e Parameter Indication (hex 00) 


Sent by the PAD in response to the packet-mode host 
SET AND READ or READ message. This message tells the 
packet-mode host what values the PAD parameters are 
set to. 


e Indication of Break (hex 03) 


Sent by the PAD in response to the FAIL function. See 
Appendix D for more information on break and interrupt 
handling. 


e Error (hex 05) 


Sent by the PAD to indicate to the packet-mode host 
that a PAD message that is not valid was received. 


Requests from the Packet-Mode Host 


Your application program may send PAD messages to a 
remote PAD using the write function-management-header 
operation. The PAD message may be a Set, Read, Set and 
Read, Invitation to Clear, or any other messages sup- 
ported by the remote PAD; the message code indicates 
which PAD message is to be sent. Your program supplies 
the message code and message parameters (if required for 
that message) as data on the write function-management- 
header operation. See “Write Operation” on page 6-4 for 
more information. 


Note: The data must be in the exact format required by the 
remote PAD. The integrated PAD requires that all data 
received in PAD messages be in hexadecimal. The following 
discussions assume that the remote PAD to which you are 
sending PAD messages is the integrated PAD. 


Reading and Setting PAD Parameters: The current values 
of the PAD parameters can be changed or read by sending a 
Set, Read, or Set and Read message. These messages are 
sent by your program using the write function-management- 
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header operation. The data to be sent by this operation 
must be in the following format: 


hex <message code><parameter><value> 
<parameter><value>... 


where: 


<message code> indicates which PAD message is being sent. 
<parameter> specifies the PAD parameter that you want to 
set or read, followed by the <value> that you want it set to. 
PAD parameters and values supported by the PAD are listed 
earlier in this chapter. When you send a Read message, you 
should enter hex 00 for each parameter value, because you 
are not setting values. 


If you do not enter any parameters and values, one of the 
following occurs: 


e Fora Set message, all parameters are reset to their 
default values. 


e Fora Read message, the values of all parameters are 
returned to the program by a Parameter Indication. 


e Fora Set and Read message, all parameters are reset to 
their default values and the values are returned to the 
program by a Parameter Indication. 


A Parameter Indication or an Error message may be 
received from the remote PAD in response to the above 
operations. These messages are returned to your applica- 
tion program as data on the next read operation. A return 
code of 0004 indicates that the data is a PAD message. 


Clearing the Virtual Circuit: Your packet-mode host 
program can request that the remote PAD end the con- 
nection by sending an Invitation to Clear message. This 
message causes the PAD to clear the virtual circuit and has 
no message parameters. 


Responses from the PAD 


The PAD responds to requests from the packet-mode host 
by sending either a Parameter Indication or an Error 
message. The PAD may also send an Indication of Break 
message in response to a fail function issued by your appli- 
cation program. 


Parameter Indication Message: The PAD responds to a 
valid Read or Set and Read message by sending a Parameter 
Indication to the packet-mode host. This PAD message 
contains the parameter numbers and the current values (after 
any changes) of the PAD parameters to which the received 
PAD message referred. The message has the following 
format: 


hex 00<parameter><value><parameter><value>... 


The PAD does not return a Parameter Indication message 
in response to a valid Set message. 


If the PAD receives a Set, Read, or Set and Read message 
that contains a reference to a PAD parameter that is not sup- 
ported, it responds by sending a Parameter Indication 
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message. The parameter field within the Parameter 
Indication message indicates the parameter that is in error 
by setting the most significant bit to 1. The corresponding 
value field is then set to hex 00. 


Note: Any remaining valid references to PAD parameters 
are processed. 


Possible reasons for a reference that is not valid to a PAD 
parameter are: 


e The parameter is not supported by the PAD. 
e The parameter value is not supported by the PAD. 


Indication of Break Message: The Indication of Break 
message is sent by the PAD when your application program 
issues a fail function. The break message that is sent 
depends on the value of PAD parameter 7. See 

Appendix D, for more information about how the PAD 
responds to the fail function based on the value of PAD 
parameter 7. 


Error Message: The PAD sends an error message when a 
PAD message that is not valid is received from a packet- 
mode host. Possible reasons for a PAD message that is not 
valid being received are as follows: 


e The received PAD message contained less than 8 bits. 
The reason code is hex 00. 


e An unrecognized message code was received in the 
PAD message. The reason code is hex 01. 


e The received PAD message did not contain an integral 
number of bytes. The reason code is hex 03. 
The format of the error message is: 
hex 05<reason code> 


Note: For reason codes hex 01 and hex 03, the error 
message also contains the message code of the PAD 
message that was received from the packet-mode host. The 
message code follows the reason code in the error message. 


Examples of PAD Messages 


The following are examples of PAD messages. These exam- 
ples show the messages that can be sent from a packet- 
mode host. They also show the responses sent by the PAD 
to both successful and unsuccessful messages. 


Note: The first byte of each PAD message indicates the 
message being sent. 


e Set message 


— The packet-mode host sends a Set message to set 
PAD parameter 7 to 1 and parameter 10 to 80. 


PAD message - hex 0207010A50 
PAD response - None, unless an error occurs 


— The packet-mode host attempts to set PAD param- 
eter 7 to 13. 


PAD message - hex 02070D 


PAD response - hex 008700 


Read message 


Set 


The packet-mode host issues a message to read 
the values of PAD parameters 2 and 10 that have 
the values 1 and 80. 


PAD message - hex 0402000A00 
PAD response - hex 0002010A50 


The packet-mode host attempts to read the PAD 
parameter 23, which is not valid. 


PAD message - hex 041700 
PAD response - hex 009700 
and Read message 


The packet-mode host issues a Set and Read 
message to change the value of PAD parameter 2 
to @ and parameter 7 to 1. Read the values of 
these parameters after the Set message. 


PAD message - hex 0602000701 
PAD response - hex 0002000701 


The packet-mode host issues a Set and Read 
message to change the value of PAD parameter 2 
to 1, parameter 7 to 25, and parameter 8 to 0. The 
value 25 is not valid for parameter 7. 


PAD message - hex 06020107190800 
PAD response - hex 00020187000800 


Error message 


The packet-mode host issues an unsupported PAD 
message. 


PAD message - hex 070101 
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PAD response - hex 050107 
e Invitation to Clear message 


— The packet-mode host requests that the remote 
PAD clear the virtual circuit. 


PAD message - hex 01 


PAD response - Clear the virtual circuit 


Rotary Dial 


Rotary dial is a function of the PAD support that allows you 
to enter the name of a PAD network address list to use in 
connecting to a remote system. It provides a function similar 
to that of the CONNECT command, and is only valid when the 
PAD is in command mode and not already connected. You 
create the PAD network address list by running the 
CRTCFGL command. You should not use a PAD command 
as the name of a PAD network address list. See the Com- 
munications Configuration book for more information about 
the Create Configuration List (CRTCFGL) command. 


The rotary dial function is started by entering the name of the 
PAD network address list as data either on a write operation 
issued by your application program or on the input line of 
ITF. PAD support begins calling the first address in the list 
for the specified number of times or until a connection is 
made. If no successful connection is made, the next address 
in the list is called. This continues until a successful con- 
nection is made or until all of the addresses have been 
called. In either case, a PAD service signal is issued indi- 
cating the result of the call attempt. See Figure 3-3 on 

page 3-4 and Figure 3-4 on page 3-5 for more information 
about PAD service signals. 
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Chapter 4. Configuring Asynchronous Communications Support 


This chapter lists the configuration commands that allow you 
to configure the communications environments described in 
Chapter 2. You can use either the system-supplied menus 
or the control language (CL) commands to configure asyn- 
chronous communications. For more information about com- 
munications configuration, see the Communications 
Configuration book. 


Asynchronous Configuration Commands 


An asynchronous configuration consists of an asynchronous 
line, controller, and device description. If you are using X.25, 
you need to configure an X.25 line with an asynchronous 
controller and device description. The name of each config- 
uration description must be unique for each configuration 
object type. This unique name is used when the configura- 
tion is varied on or varied off using the Vary Configuration 
(VRYCFG) command. More than one line description can be 
varied on and in use at the same time; however, each line 
must be attached to a different communications port. 


The following commands are used to create or change line 
descriptions: 


CRTLINASC: Create Line Description (Asynchronous) 
CHGLINASC: Change Line Description (Asynchronous) 
CRTLINX25: Create Line Description (X.25) 
CHGLINX25: Change Line Description (X.25) 


The following commands are used to create or change con- 
troller descriptions: 
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¢ CRTCTLASC: Create Controller Description (Asynchro- 
nous) 

¢ CHGCTLASC: Change Controller Description (Asyn- 
chronous) 


The following commands are used to create or change 
device descriptions: 


¢ CRTDEVASC: Create Device Description (Asynchro- 
nous) 

e CHGDEVASC: Change Device Description (Asynchro- 
nous) 


The following commands are used to create or change asyn- 
chronous configuration lists. A configuration list can be 
either a remote location list or a PAD network address list. 


¢ CRTCFGL: Create Configuration List 
¢ CHGCFGL: Change Configuration List 


Asynchronous communications configuration lists may 
consist of either a remote location list or a PAD network 
address list: 


e The remote location list is used by asynchronous 
support when you have configured generic controllers 
and devices. See item [J under the topic “Connections 
to a Packet-Switching Data Network” on page 2-3 for 
more information about using generic controllers and 
devices. 


e The PAD network address list is used by the asynchro- 
nous support as part of the rotary dial function. See 
“Rotary Dial” on page 3-7 for more information about 
this function. 
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Chapter 5. Running Asynchronous Communications Support 


Once configuration for asynchronous communications is command with STATUS(*OFF) to vary off the configured line, 
complete, the Vary Configuration (VRYCFG) command is controller, and device descriptions. 

used to activate and deactivate the line, controller, and 

device descriptions used by asynchronous communications It is not necessary to activate configuration list support for 
support. asynchronous communications. The remote locations or 


network addresses used in the configuration list are known to 
The VRYCFG command prepares the local AS/400 system to the asynchronous communications support at the time the list 
communicate with the remote system. The remote system is created or changed. 
must also be prepared to communicate with the local system. 
See the book, Communications Management, for more infor- 
Use the VRYCFG command and specify STATUS(*ON) to mation about using the VRYCFG command. 
vary on the configuration descriptions. Use the VRYCFG 
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Chapter 6. Writing Asynchronous Communications Application Programs 


This chapter describes how an application program uses the 
intersystem communications function (ICF) file and the asyn- 
chronous communications support. The program can be 
coded using ILE C/400, ILE COBOL/400, FORTRAN/400, or 
ILE RPG/400 languages. These four languages support an 
interface that allows the program to do the following func- 
tions: 


e Start a session by opening an ICF file and acquiring a 
program device. 

¢ Send and receive information by writing or reading to an 
ICF file. 

e End a session by releasing the program device and 
closing the ICF file. 


The chapter also includes a description of the read and write 
operations that specify a record format containing specific 
communications functions. Record formats can be defined 
using data description specifications (DDS), or you may use 
system-supplied formats. 


After an operation completes, a return code (and a high-level 
language file status) is returned to your application. The 
return code indicates whether the operation completed suc- 
cessfully or unsuccessfully. Along with the return code, 
exception messages may also be issued. Refer to 

Appendix B for more information about return codes and to 
the appropriate language reference books for more informa- 
tion about the high-level language file status. 


Intersystem Communications Function 
Files 


An ICF file must be created before your application can use 
the asynchronous communications support. The inter- 
system communications function (ICF) file is used to 
describe how data is presented to the program with which 
your program is communicating, and how data is received 
from that program. If you are using DDS keywords, use the 
Create Intersystem Communications Function File 
(CRTICFF) command to create an ICF file. If you are using 
the system-supplied formats (such as $$SEND), you do not 
need to create an ICF file. The ICF file QICDMF, which is in 
the library QSYS, is supplied by IBM for communications. 


The ICF file is a system object of type *FILE with a specific 
user interface. This interface is made up of a set of com- 
mands and operations. The commands allow you to manage 
the attributes of the file, and the operations allow a program 
to use the file. Commands allow you to create, delete, 
change, and display the file description. 


The following commands are used to manage the ICF file, 
and are described in detail in the book, CF Programming. 
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CRTICFF 
Create ICF File. This command allows you to create 
an ICF file. Once you have created this file, asyn- 
chronous communications support uses the attributes 
for each session. 


CHGICFF 
Change ICF File. This command allows you to make 
a permanent change to the file attributes of the ICF 
file. 


OVRICFF 
Override ICF File. This command allows you to make 
a temporary change to the file attributes of the ICF file 
at run time. These changes are only in effect for the 
duration of the job and do not affect other users of the 
file. 


DLTF 
Delete File. This command allows you to delete a file 
from the system. 


DSPFD 
Display File Description. This command displays the 
file description of any file on the system. The infor- 
mation can be printed or displayed. 


DSPFFD 
Display File Field Description. This command dis- 
plays the description of the fields in any file on the 
system. This information may be printed or displayed. 


ADDICFDEVE 

Add ICF Device Entry. This command allows you to 
add a permanent program device entry to the ICF file 
and have it associated with a program device name. 
Only one program device name can be used for each 
remote location name in a session. Once you have 
added a program device entry, the attributes are used 
for every session. 


CHGICFDEVE 
Change ICF Device Entry. This command allows you 
to permanently change the device entry previously 
added with the ADDICFDEVE command. 


RMVICFDEVE 
Remove ICF Device Entry. This command allows you 
to permanently remove the device entries previously 
added with the ADDICFDEVE command or changed 
with the CHGICFDEVE command. 


OVRICFDEVE 
Override ICF Device Entry. This command can be 
used for two functions: 


¢ To temporarily add the program device entry and 
the location to the ICF file. You must use an 
OVRICFDEVE command if you do not use an 
ADDICFDEVE command to add a program 
device entry to the ICF file to be used for a 
session. 


e To override (replace) a program device entry with 
the specified location name and attributes for an 
ICF file. When the session ends, the attributes 
revert to the parameters set by the ADDICFDEVE 
command. 


Specifying the Program Device Entry 
Parameters 


The following describes the parameters for the 
ADDICFDEVE, CHGICFDEVE, and OVRICFDEVE com- 
mands and lists the valid values for each parameter for asyn- 
chronous communications. For a complete description of all 
the parameters for these commands, refer to the ICF Pro- 
gramming book. 


FILE 
Specifies the name and library of the ICF file to which 
you are adding or changing the program device entry. 
The FILE parameter is not available on the 
OVRICFDEVE command. 


*LIBL: Asynchronous communications support uses the 
library list to locate the ICF file. This is the default. 


*CURLIB: Asynchronous communications support uses 
the current library for the job to locate the ICF file. If no 
current library entry exists in the library list, asynchro- 
nous communications uses QGPL. 


filename: A 1- to 10-character value that specifies the 
name of the ICF file. 


library-name: A 1- to 10-character value that specifies 
the library where the ICF file is located. 


PGMDEV 
Specifies the program device name that is defined in the 
ICF file and specified in the application. The total 
number of devices that can be acquired to an ICF file is 
determined by the MAXPGMDEV parameter on the 
CRTICFF or CHGICFF command. 


pgm-device-name: A 1- to 10-character value for the 
program device name being defined. This name is used 
on device-specific input and output operations to identify 
the program device and the attributes. 


RMTLOCNAME 
Specifies the remote location name with which your 
program communicates. A remote location name must 
be specified on the ADDICFDEVE command or an 
OVRICFDEVE command. If a remote location name is 
not specified, an 82AA return code is issued when the 
program device is acquired. 


*REQUESTER: The name used to refer to the commu- 
nications device through which the program was started. 
The session that is assigned when the program device is 
acquired is the same session that receives the program 
start request. If the program is not started as a result of 
a program start request, the acquire operation for the 
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program device fails. The target program always uses 
*REQUESTER as the remote location name in the ICF 
file to connect to the session that the source program 
uses to send the program start request. 


remote-location-name: A 1- to 8-character name for the 
remote location name that should be associated with the 
program device. 


FMTSLT 
Specifies the type of record format selection used for 
input operations for all devices. 


*PGM: The program determines what record formats 
are selected. If an input (read) operation with a record 
format name is specified, that format is always selected. 
If an input operation without a record format is specified, 
the default format (the first record format in the file) is 
always selected. This also means that if any record 
identification (RECID) keywords are specified in the data 
description specifications (DDS) for the file, they are not 
taken into consideration when the record is selected. 
This is the default. 


*RECID: The RECID keywords specified in DDS for the 
file are used to specify record selection. If no RECID 
keywords are specified in the file, an error message is 
sent and an acquire operation for the program device 
will fail. 


*RMTFMT: Remote format names are not supported by 
asynchronous communications. 


CMNTYPE 
Identifies the communications type for which you define 
a program device entry. You should specify the value 
*ASYNC or *ALL for this parameter. 


*ASYNC: The prompt for all asynchronous 
communications-supported attributes. 


Note: When you specify *REQUESTER for the remote 
location name (RMTLOCNAMEB), you are only prompted 
for the attributes of the format select parameter 
(FMTSLT) and the secure from override parameter 
(SECURE). 


Communications Operations 


This section provides a description of the operations you can 
code into a program that uses asynchronous communications 
support to communicate with another program. 


Starting a Session 


A communications session is a logical connection between 
two systems through which a local program can communi- 
cate with a program at a remote location. A communications 
session is established with an acquire operation and is 
ended with a release operation or an end-of-session function. 


Open/Acquire Operation 


Your program must open an ICF file and acquire a program 
device before it can direct any read or write operations to the 
program device. Only program devices defined to the file by 
the ADDICFDEVE or OVRICFDEVE command can be 
acquired. 


A session can be established explicitly, using an acquire 
operation, or implicitly, using an open operation. The acquire 
operation is performed automatically as part of the open 
operation if you specify the ACQPGMDEV parameter on the 
ICF file. 


You can start the session in one of the following ways: 


e For a source program, the session between your 
program and the remote location with which your 
program is communicating is started by an open or 
acquire operation. The program device name on the 
acquire operation identifies the session and must match 
the program device name specified in an associated 
ADDICFDEVE or OVRICFDEVE command. 


¢ Fora target program, a source program on the remote 
system sends a program start request to the AS/400 
system to start your program. This also starts the 
session. Before your program can send or receive data, 
it must first make a logical connection to the source 
program. This logical connection is made when your 
program uses the open or acquire operation. The 
program device name on the acquire operation identifies 
the session. This name must match the program device 
name specified in an associated ADDICFDEVE or 
OVRICFDEVE command. You must specify a 
requesting device for the remote location 
(RMTLOCNAME(*REQUESTER)) on the ADDICFDEVE 
or OVRICFDEVE command when your program is 
started by a program start request. 


See “Evoke Function” for the format of the program start 
request built by asynchronous communications. 


Starting a Transaction 


A transaction is a logical connection between two programs. 
Use the evoke function to start a transaction between your 
program and a target program on the remote system. 


Evoke Function 


Your program uses the evoke function to start a program on 
the remote system. Control is then returned to your program 
immediately without confirmation that the target program has 
started successfully. It is the responsibility of your program 
to confirm that the target program has started. 


For example, after the evoke function has been issued, your 
program can issue an invite function to request data from the 


target program. Your program should then use the timer 
function to set the maximum amount of time your program 
waits to receive data. Your program can then issue a read- 
from-invited-program-devices operation until it receives a 
timer ended return code (0310) or until a confirmation is 
received from the target program. 


If your program sends program initialization parameters on 
the evoke function, each parameter that is sent should be 
equal in length to the corresponding parameter specified in 
the target program. If it is longer than the parameter length 
in the target program, the parameter is truncated. If it is 
shorter than the parameter length in the target program, 
unpredictable results may occur. 


For information on how to code the evoke function, refer to 
the ICF Programming book, and the DDS Reference book. 


Syntax of Program Start Requests 


When your program issues an evoke function, the asynchro- 
nous support builds a program start request that is sent to 
the remote system. The format of the program start request 
as received by the remote system is: 


<'*EXEC' or '*EXEX'><b><PROGRAM NAME><b> 
<PROGRAM DATA><CR> 
<USER ID><CR><LIBRARY NAME> 
<CR><PASSWORD><CR><EOT> 


where: 
<*EXEC> = Normal evoke (Hex 2A45584543) 
<*EXEX> = Evoke with detach 

(Hex 2445584558) 
<b> = Blank (Hex 20) 
<CR> = Carriage return (Hex OD) 
<EQT> = End of transaction (Hex 04) 


<PROGRAM NAME> = Name of program to be started 
<PROGRAM DATA> = Any program initialization 
parameters sent by your program 


<USER ID> = User identifier 

<LIBRARY NAME> = Name of library where program 
resides 

<PASSWORD> = Password used by your program 

Notes: 


1. The receiving system always expects the program start 
request to be in ASCII. 


2. If an *, E, C, or X are configured as end-of-record char- 
acters in the end-of-record table (EORTBL) of an asyn- 
chronous line description, asynchronous communications 
support may not recognize the program start request. 


Sending Data 


You can send data during a transaction using the write oper- 
ation. The following section describes the write operations 
and functions that are supported for asynchronous commu- 
nications. 
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Write Operation 


Your program uses the write operation to send data to the 
remote location. The maximum amount of data your 
program can send with each write operation is 4096 charac- 
ters. If an asynchronous line description is used, the asyn- 
chronous support does not attempt to maintain the data as 
logical records. Therefore, the remote system application 
program must reassemble the data into logical records. 


Note: If your program sends binary data, XON/XOFF char- 
acters should not be sent. Sending these characters can 
cause unpredictable results. 


If an X.25 line description is used, the data sent by your 
program is maintained as a logical record. This is done by 
turning on the more-data bit in each data packet sent by the 
asynchronous support. 


If PAD emulation is configured, the settings of the PAD 
parameters govern how data is sent. See Chapter 3 for 
more information. 


If your program had previously issued an invite function, the 
write operation causes an implicit cancel invite if no data is 
available. If data is available, the write operation will receive 
a 0412 return code. This code indicates that before a write 
operation can be issued, your program must issue a read 
operation to receive the data. 


Function-Management-Header Function 
Your program uses the function-management-header function 
to affect data translation, to change certain characteristics of 
data on an asynchronous communications line, or to send 
PAD messages. All data associated with the function- 
management-header function, with the exception of the send 
PAD message function-management-header function, will be 
used only by the local system. X.29 PAD messages are 
used when the AS/400 system is the packet mode host. 
Figure 3-1 on page 3-1 shows the PAD messages as X.29 
messages. 


When your program changes any of the following values, the 
change remains in effect until the line is varied off or another 
write function-management-header is issued. 


Note: The line description is not changed; therefore, it is not 
possible to determine what is changed by displaying the line 
description. 


¢ Setting translation mode: When an asynchronous 
communications session is acquired, the default value 
for the translation mode is XLATE-Y, which means data 
is translated. User data is translated from EBCDIC to 
ASCII on write operations and from ASCII to EBCDIC on 
read operations. If you do not want user data in a 
program to be translated, you must turn translation off 
before you issue any write or read operations. See 
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Appendix C for the code conversion tables that are used 
to translate your program data. 


XLATE-Y: Data is translated. 
XLATE-N: Data is not translated. 


¢ Setting parity: When an asynchronous session is first 
acquired, the default value for the parity setting is the 
value configured in the line description. This value 
remains in effect until you issue another write function- 
management-header operation or deactivate the line. 
You can use the write function-management-header 
operation to change the parity setting in your session as 
follows: 


PARITY-N: Data is sent with no parity. 
PARITY-O: Data is sent with odd parity. 
PARITY-E: Data is sent with even parity. 


¢ Changing flow control: Defaults to line description 
configuration value. XON/XOFF values are configured 
and cannot be changed. 


FLOW-Y: Turn on flow control; the hardware stops 
sending when an XOFF character is received and 
begins again when an XON character is received. 
FLOW-N: Turn off flow control; the hardware does 
not recognize XOFF and XON characters received 
as flow control characters. 


Note: If the function-management-header function is 
used to turn on flow control when no flow control charac- 
ters have been specified in the line description, the 
system assumes hex 11 for XON and hex 13 for XOFF. 


¢ Changing the ECHO: Defaults to line description con- 
figuration value. Echo is performed by the communica- 
tions adapter. 


ECHO-N: 
ters. 
ECHO-A: Echo all characters received. 
ECHO-C: Controlled echo; echo all characters 
except end-of-record (EOR) characters. 


Turn echo off; do not echo any charac- 


Combinations can also be entered on one write function- 
management-header operation. However, if done, each 
operation must be separated by a comma, with no 
embedded blanks, as in the following example: 


XLATE-Y, PARITY-N 


The output length for this example is 16. 


Receiving Data 


Your program uses the read operation to receive data from a 
remote location, data echoed by the integrated PAD, or data 
from a PAD message or service signal. The following 
section describes the read operations that are supported for 
asynchronous communications. 


Read Operation 


Your program uses the read operation to obtain data from 
either the remote program with which your program is com- 
municating, or an emulated PAD, or a PAD message. The 
read operation also causes your program to wait for the data 
if it is not available immediately. Your program then receives 
control when the data is available. 


Note: The read operation obtains data from a specific 
program while the read-from-invited-program-devices opera- 
tion allows the data to come from any previously invited 
device. 


In asynchronous communications, the read operation can be 
issued by itself. 


The asynchronous communications support attempts to 
maintain the data in logical records whenever possible. The 
following guidelines are used to provide your program with 
data during a read operation. 


¢ A logical record will not exceed 4096 bytes and is deter- 
mined in one of the following ways: 


— For asynchronous line descriptions, a logical record 
is defined as one of the following: 

- Data ended by an end-of-record (EOR) char- 
acter, including any additional trailing characters 
received. The EOR character and trailing char- 
acters are specified by the EORTBL parameter 
on the asynchronous line description. 

- All data received prior to an inter-character idle 
time out. The inter-character idle time out is 
the length of time elapsed since the last byte of 
data was received. It is specified by the 
IDLTMR parameter on the asynchronous line 
description. 

- All data received in the communications adapter 
data buffer until the buffer becomes full. The 
size of the buffer is specified by the 
MAXBUFFER parameter on the asynchronous 
line description. 

— For X.25 line descriptions not using PAD support, 
each data packet received is treated as a logical 
record unless the more-data bit is on in the data 
packet. Packets containing the more-data bit are 
combined and treated as one logical record. 

— For X.25 line descriptions using PAD support config- 
ured to echo data to the terminal (your program), all 
data echoed by the PAD is considered to be one 
logical record. The echoed data is received by your 
program prior to any data received from the X.25 
line. 


e A default record, at least as large as the buffer size con- 
figured on the line description, should be specified. 


e If the record received contains a parity error or stop bit 
(frame) error, your program receives a 0016 return code. 


e If the record was received and data was lost (overrun 
situation), your program receives a 0042 return code. 


e The asynchronous support does not exceed the input 
buffer length specified by your application program. If 
the amount of data available is greater than the amount 
requested by the read operation in your program, you 
must issue another read operation to get the remaining 
data. 


e The asynchronous support does not cross a logical 
record boundary in satisfying a read operation. The 
actual length of the data supplied to your application 
program is available in the I/O feedback area. Your 
application program should always check this length 
before processing the data received. 


e Ifa fail indication is received, your application program 
receives a 0302 return code and receives no data on the 
current read operation. Refer to Appendix D for more 
information on break and interrupt handling. 


e If data is available at the time the read operation is 
issued, that data is returned to your program imme- 
diately. If data is not available, your program waits for 
the data and control is returned to your program only 
when the data becomes available. 


Invite Function 


Your program uses the invite function to request input data 
from another program (through the associated session), but it 
receives control without waiting for the input. To obtain the 
data, your program must then issue either a read-from- 
invited-program-devices operation or read operation later in 
this transaction. 


If your program issues a read operation following the invite 
function, the read operation satisfies the invite function. If 
you then want to issue a read-from-invited-program-devices 
operation, you must first issue another invite function 
because the read operation satisfied the previous invite func- 
tion. 


Read-From-Invited-Program-Devices 
Operation 


Your program can use the read-from-invited-program-devices 
operation to obtain data from any device that has responded 
to an invite function that was previously issued in your 
program. If data becomes available to your program from 
more than one device before the read-from-invited-program- 
devices operation is issued, your program receives the data 
that was first made available. 


A read-from-invited-program-devices operation should be 
issued to receive data only after an invite function is issued 
and/or a timer function is issued. 


Data received on a read-from-invited-program-devices opera- 
tion follows the same guidelines as those described for the 
read operation. 


Chapter 6. Writing Asynchronous Communications Application Programs 6-5 


Waiting for a Display File, an ICF File, and 
a Data Queue 


Use data queues when a program must wait for a display 
file, an ICF file, and a data queue, in any combination, at the 
same time. The following commands are used with the 
specified DTAQ parameter: 


¢ Create Display File (CRTDSPF) 

e¢ Change Display File (CHGDSPF) 
¢ Override Display File (OVRDSPF) 
¢ Create ICF File (CRTICFF) 

¢ Change ICF File (CHGICFF) 

¢ Override ICF File (OVRICFF) 


Use these commands to indicate a data queue that will have 
entries placed in it when one of the following occurs: 


e An enabled command key or Enter key is pressed from 
an invited display device. 


¢ Data becomes available when the session is invited for 
an ICF device. 


e A user-defined entry is made to a data queue by a job 
running on the system. 


For more information, see the CL Programming, and the ICF 
Programming books. 


Notifying the Remote Program of 
Problems 


Your program uses the functions described in this section to 
indicate that an error has occurred during the transaction 
with the target program. 


Fail Function 


Your program uses the fail function to indicate that it has 
detected an abnormal condition while it was sending or 
receiving data. Refer to Appendix D for additional informa- 
tion. 


When a program that is sending data issues a fail function, 
either the data just sent was in error or some other condition 
occurred. However, the last record before the fail function 
was issued is still sent to the target program. 


A program that is receiving data issues a fail function to indi- 
cate that the data it received was in error. The program 
issuing the fail function may then do an output operation so it 
can indicate why it sent the fail function. However, no data 
can be sent with a fail function. The record sent by the write 
operation should identify what the error is and where the 
other program should start again. 


In either case, the program that issued the fail function 
should send, and the program that receives the fail return 
code 0302 should receive. Otherwise, the program that was 
sending cannot determine which record failed or with which 
record it should begin sending again. 
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Note: When a fail is sent or received, all data that was to 
be returned to the application program by asynchronous 
communications support is discarded. 


Using Additional Functions and 
Operations 


Additional functions available include the cancel-invite and 
the timer functions. Also available is the get-attributes opera- 
tion. 


Cancel-Invite Function 


Your program uses the cancel-invite function to cancel a 
valid invite for which no input has yet been received. If data 
is in the input buffer, the function fails and the return code 
0412 is received by the program. Your program must then 
issue a read operation to receive the data. 


Timer Function 


Your program uses the timer function to set the maximum 
amount of time your program waits to receive data when 
issuing a read-from-invited-program-devices operation. 


When your program issues a read-from-invited-program- 
devices operation and receives data before the timer ends, a 
0000 return code is received. However, if no data is 
received and the timer ends, a 0310 return code is sent to 
your program. 


Get-Attributes Operation 


Your program uses the get-attributes operation to determine 
the status of the session. It can be issued at any time during 
a session. The operation gets the current status information 
about the session to which your program is communicating. 


Ending Transactions 


The detach function is used to end a transaction. 


Detach Function 


The detach function is used to end a transaction between 
your program and the program with which it is communi- 
cating. The detach function is valid only when used with the 
evoke function. Any other use will cause an 831E return 
code to be sent to your program. 


Ending a Session 


The release operation or the end-of-session function is used 
to end a session. 


Release Operation 


Your program uses the release operation to attempt to end a 
session. Depending on how the session was started, the 
release operation produces different results: 


e If the session was started by a source program, the 
release operation ends the session immediately. The 
operation frees the resources that were used during the 
session. If the release operation is not successful, the 
end-of-session function can be issued to end the 
session. The same or another session can then be 
started. 


e If the session was started by a target program, the con- 
nection to the source program is ended, but the session 
still exists. Your program must issue an end-of-session 
function or go to end of job to end the session. 


End-of-Session Function 


Your program uses the end-of-session function to end a 
session. Unlike the release operation, the end-of-session 
function always ends the session (if it still exists), and gives 
a normal completion return code (0000). If the session does 
not exist, the end-of-session operation gives your program an 
830B return code. 


The end-of-session function can be issued in a session that 
was started by an evoke function. In this case, your program 
should issue the end-of-session function after the transaction 
has ended. The end-of-session function frees that session 
so that it can be started again by another program. 


If your program does not issue an end-of-session function, 
the session exists until your program ends. To prevent your 
program from ending abnormally because of a communica- 
tions error, you may want to code the end-of-session function 
in your program as a general recovery action for all unex- 
pected errors that you have not handled individually in your 
program. The end-of-session function could be used to end 
the session rather than trying the failing operation again in 
that session or specifying some special recovery action for 
each error. 


If you have specified switched disconnect (SWTDSC(*YES)) 
on a controller description for a switched connection, the 
physical connection to the remote system is disconnected 
during end-of-session processing. 


Using Response Indicators 


Response indicators are defined to your program in the ICF 
file and are set on each input operation. However, these 
indicators are optional and major and minor return codes can 
also be used to indicate the status of input operations. 


Receive-Fail Indicator 


Use the receive-fail response indicator to determine if a fail 
function has been received. When a fail function is received, 
all data received by the asynchronous support and not given 
to the application program on a read operation is discarded. 


Receipt of a fail request is also indicated by the return code 
0302. 


Using I/O Feedback Areas 


Your program may have access to the I/O feedback area. If 
it does, you should be aware of certain fields when writing 
applications using asynchronous communications: 


Actual received data length 
This field contains the length of the data received on 
an input operation. 


Major return code 
This field contains the major return code indicating the 
status of input and output operations. 


Minor return code 
This field contains the minor return code indicating the 
status of input and output operations. 


feedbackoarea,fseeathen about the I/O feedback area, see 
the ICF Programming book. 


Using Return Codes 


After each operation, an ICF return code is returned to your 
program. Your program should check this return code to 
determine: 


e The status of the operation just completed 
e The operation that should be issued next 


For example, a major return code of 00 indicates that data 
was received. Along with this major code you can receive 
from asynchronous communications, for example, one of 
these minor codes: 


e 16: Indicates the data received contains a parity error 
and/or a stop bit error. Your program should notify the 
remote program to send data again. 


e 42: Indicates that some data was lost, perhaps due to 
an overrun situation. Your program should notify the 
remote program to send the data again or ensure that 
the maximum buffer length configured on the line 
description is sufficiently large. 


Another example would be a major code of 83. In this case, 
an error was detected that may be recoverable. Different 
minor codes can be returned, just as for the 00 major. For 
example, if your program receives an EO minor return code, 
your program tried to run an operation using a record format 
that was not defined for the file. You can check the name of 
the record format in your program to be sure it is correct, and 


Chapter 6. Writing Asynchronous Communications Application Programs 6-7 


then check to see whether the record format is defined in the operation completed successfully or that the appropriate 
file definition. recovery action has been taken. 


It is recommended that your program check the ICF return Refer to Appendix B for a description of the return codes 
codes at the completion of every operation to ensure that the that can be returned to your application when it is using 
asynchronous communications. 
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Chapter 7. Asynchronous Communications Considerations 


This chapter contains application and performance consider- 
ations for asynchronous communications programming. 


Application Considerations 


The following considerations need to be taken into account 
when writing your applications. 


Evoke Confirmation 


When your source program issues an evoke function, asyn- 
chronous communications does not determine whether or not 
the evoke was successful. Your program must ensure the 
evoke was successful. This can be done by issuing a write 
operation from the target program. 


This check can be made using the following steps in your 
program: 


e Issue an invite function after the evoke has been sent. 
e Issue the timer function. 


Your program should set the timer value to the 
maximum length of time you expect to wait before 
receiving data from the remote system. 


e Issue a read-from-invited-program-devices operation 
until: 


— Your program receives confirmation from the target 
program that the evoke was received 


— The specified timer value has expired (return code 
0310). 


The asynchronous communications support does not perform 
sequence checking, but issues return codes informing you of 
parity errors, stop bit errors, and data loss. However, 
because only minimal data integrity checking is done by the 
asynchronous communications support, it is possible for data 
to be lost without your program ever being notified. All 
record sequence error recovery and retransmission of data 
must be done by your program. 


See Appendix B for more information about return codes and 
their meanings. 


Function-Management-Header Function 


If your program performs a write function management 
header (FMH) operation to turn flow control on, and the XON 
and XOFF characters have not been specified in the line 
description (CONCHAR and XOFFCHAR parameters), the 
asynchronous communications support uses the system 
default values for these characters. The default values are 
hex 11 for XON and hex 13 for XOFF. 
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Logical Records 


The asynchronous communications support attempts to 
maintain the data in logical records whenever possible. The 
following guidelines are used to provide your program with 
data during a read operation. 


A logical record will not exceed 4096 bytes and is deter- 
mined in one of the following ways: 


e For asynchronous line descriptions, a logical record is 
defined as one of the following: 


— Data ended by an end of record (EOR) character, 
including any additional trailing characters received. 
The EOR character and trailing characters are spec- 
ified by the EORTBL parameter on the asynchro- 
nous line description. 


— All data received prior to an inter-character idle time 
out. The inter-character idle time out is the length 
of time elapsed since the last byte of data was 
received and is specified by the IDLTMR parameter 
on the asynchronous line description. 


— All data received in the communications adapter 
data buffer until the buffer becomes full. The size of 
the buffer is specified by the MAXBUFFER param- 
eter on the asynchronous line description. 


e For X.25 line descriptions not using PAD support, each 
data packet received is treated as a logical record 
unless the more-data bit is on in the data packet. 
Packets containing the more-data bit are combined and 
treated as one logical record. 


e For X.25 line descriptions using PAD support configured 
to echo data to the terminal (your program), all data 
echoed by the PAD is considered to be one logical 
record. The echoed data is received by your program 
prior to any data received from the X.25 line. 


Prestarting Jobs for Program Start 
Requests 


A program start request is a request made by your program 
to start a program on the remote system. When a source 
program issues an evoke function, this signals a program 
start request to the asynchronous communications support. 


If the remote system is an AS/400 system, you can minimize 
the time required to carry out a program start request by 
using the prestart job entry to start a job on the remote 
system before your program sends a program start request. 
To use prestart jobs, you need to define both communica- 
tions and prestart job entries in the same subsystem 
description, and make certain programming changes to the 
prestart job program with which your program communicates. 


For information about how to use prestart jobs, refer to the 
ICF Programming book. 


Performance Considerations 


The AS/400 system provides support for many devices, 
application programs, and services using asynchronous com- 
munications support. Asynchronous communications is not 
compatible with Systems Network Architecture (SNA). The 
performance of this support depends on the application 
program or service with which it is used and the speed of the 
line or network used. See the Communications Management 
book. for general information about communications perfor- 
mance considerations. 


Buffer Size 


AS/400 asynchronous support uses buffers ranging in size 
from 128 to 4096 bytes. The maximum buffer size is deter- 
mined by the value specified for the MAXBUFFER parameter 
in the line description. This value should be selected based 
on: 


e The amount of time the input/output processor waits 
before passing the data up (using the /dle timer 
(IDLTMR) prompt). 


e The amount of data received within a specified time 
period 


e Whether or not end-of-record processing is being used 


e The size of output requests 


If EOR processing is used for all received records, 
MAXBUFFER should be configured to be the largest of the 
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input and output requests, including the EOR character and 
any trailing characters. 


If EOR processing is not used, MAXBUFFER should be con- 
figured to be the largest of your input and output requests. 


Note: If you use file transfer support (FTS), the 
MAXBUFFER value must be at least 896. 


Data Buffering Using XOFF Characters 


When data arrives faster than a user application receives 
and processes it, the AS/400 system buffers the data until 
the application can accept it. 12KB of data (where 1KB = 
1024 bytes) are buffered before sending an XOFF character 
to the remote system. The AS/400 system continues to send 
an XOFF character in response to each logical record 
received until the amount of data received by the application 
program reduces the amount of buffered data to less than 
4KB. When the buffered data is below 4KB, the AS/400 
system sends an XON character. 


The AS/400 system will buffer up to 24KB before dropping 
the connection with the remote system. 


Asynchronous Overhead 


It may be possible to reduce the amount of overhead needed 
to send each character on the line by changing the definition 
of a character in the line description. For example, if you 
have configured 8 bits even parity and 2 stop bits, the total 
number of bits sent on the line would be 12. Note that a 
start bit and at least 1 stop bit are always sent. If instead 
you configured 8 data bits, 1 stop bit, and no parity, the total 
number of bits sent on the line would be 10. This would 
reduce the overhead by 17 percent. The remote system 
must accept the character format sent by the system. 


Chapter 8. Using the Interactive Terminal Facility 


The interactive terminal facility (ITF) is included as a part of 
the OS/400 asynchronous communications support. The 
interactive terminal facility (ITF) allows the AS/400 user to 
send and receive data through applications such as elec- 
tronic message services for asynchronous terminals. 
Through ITF, you can use these applications to send mes- 
sages such as interoffice memos. In addition, ITF lets you 
send and receive file members and send OfficeVision docu- 
ments. 


Starting ITF 


Before you can start ITF, you must start the asynchronous 
communications devices. After you have started asynchro- 
nous communications, type the following: 


STRITF nnnnnnnn 


where nnnnnnnn is the name of the remote location with 
which you want to communicate. This name is the same as 
the remote location name specified during configuration. For 
example, if you are using ITF to communicate with TELE- 
MAIL and you specified MAIL as the remote location name 
for TELEMAIL, type the following: 


STRITF MAIL 


Notes: 


1. ITF can send file members with record lengths up to 
2048 characters. However, some applications can only 
receive data with record lengths up to 132 characters. If 
the receiving application cannot accept the record length 
of the file member being sent, unpredictable results may 
occur. 


2. ITF is intended primarily for applications with record 
lengths up to 132 characters. For longer record lengths, 
file transfer support can be used. See the /CF Program- 
ming book for more information about file transfer 
support. 


3. To improve performance, configure the end-of-record 
table to match the end-of-record table of the remote 
application. This configuration reduces time-out condi- 
tions. 


If you are communicating through a packet-switching data 
network (PSDN), you must be connected to the network 
before you can send or receive messages. 


For a configuration using an asynchronous line, you can use 
one of the following ways to make connections to the 
network: 


¢ Make a manual connection to the network by dialing the 
number on the telephone. 


e If you are using a command-capable modem, type the 
modem dial command on the Use Interactive Terminal 
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Facility (ITF) display and press the Enter key. ITF sends 
this command to the modem, which then calls the 
number (the modem must support this function). 


e For an asynchronous line, press F11 from the Use Inter- 
active Terminal Facility (ITF) display to work with the ITF 
telephone list. (F11 and F14 are not available for 
asynchronous/X.25 lines or for lines using packet 
assembler/disassembler [PAD] support.) 


After you type the STRITF command, the Use Interactive 
Terminal Facility (ITF) display is shown. 


[ Use Interactive Terminal Facility (ITF) 
F3=Extt F5=Start send/receive Fo=stop send/receive 
F9=Send data as typed F10=Send password Fll=Telephone list 
F12=Cancel F14=Redial Attn=Send control character 
(C) COPYRIGHT IBM CORP. 1988. 
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The Use Interactive Terminal Facility (ITF) display is the first 
display for ITF. From this display, you can type commands 

and answer prompts to start the message service. Function 
keys let you perform other ITF functions. 


When you are using ITF, the display station functions as an 
asynchronous terminal. Data is sent and received one 
record at atime. Therefore, when you are typing a message 
to be sent, you must press the Enter key or F9 at the end of 
each line. If the data entry line is full, ITF automatically 
sends the data for you. 


When you press the Enter key or F9, ITF sends the data. If 
you press the Enter key to send the data, a carriage return 
(CR) is added to the data; if you press F9 to send the data, 
the CR is not added. The data then disappears from the 
data entry line of your display. If the remote system echoes 
the data, it is written again on your display. 


Echo can be set on or off at a packet-switching data network 
(PSDN) PAD. However, you should not set echo off at the 
PAD when you are using ITF. Echo must be set on at the 
PAD for data that is sent to appear again on the display after 
you press the Enter key; it must also be set on for ITF to 
send file members and OfficeVision documents. 


Note: All data sent either from the display or from a data 
file, file member, or OfficeVision document is assumed to be 
EBCDIC and is translated to ASCII. All data received is 
assumed to be ASCII and is translated to EBCDIC before 
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being displayed or placed in a file or member. A control 
character sent from the Send Control Character display is not 
translated. 


Incoming data is displayed as it is received or echoed. The 
data is automatically rolled to the upper portion of the display 
(lines 2 through 17) if a format effector ' is encountered or if 
160 bytes of data have been received. Otherwise, the data 
is displayed on the data entry line. The old data that is rolled 
off the top is held in a buffer area. This data can be 
scanned using the roll keys. Up to six full displays of data, 
or approximately 96 lines of data, are held in the buffer area. 
After the buffer is full, old data is overlaid. 


Selecting ITF Functions 


The Use Interactive Terminal Facility (ITF) display is the first 
display for ITF. From this display, you can type commands 
and answer prompts to start the message service. You can 
also type a message to be sent. Function keys let you select 
other ITF functions. 


The function keys have the following functions under ITF: 


e¢ F1=Help: Pressing Fi on any of the ITF displays shows 
help for using that display. 


e F3=Exit: If you press F3 from the Use Interactive Ter- 
minal Facility (ITF) display, ITF ends. Pressing F3 from 
any other ITF display returns you to the Use Interactive 
Terminal Facility (ITF) display; in this case, ITF ignores 
any data that you may have typed on the display. You 
cannot use this function key if a data send or receive 
operation is in progress. 


e F5=Start send/receive: To send or receive a file 
member or a document, press F5. The Start 
Send/Receive display appears; on this display, you can 
tell ITF to send data from a file or document or to 
receive data into a file. You cannot use this function key 
if a data send or receive operation is in progress. 


e F6=Stop send/receive: To stop the sending or receiving 
of a file or document, press F6. ITF stops sending or 
receiving and returns control to you. For better perfor- 
mance, use the Attention key for the stop send/receive 
function. 


e F9=Send data as typed: |n normal data entry, a carriage 
return character is added to the end of the data when 
you press the Enter key. If you want to send data 
without a carriage return (for example, to send com- 
mands to a modem), press FQ instead of the Enter key 
after typing data on the data entry line. If you are cur- 
rently sending a file member or document, pressing F9 
or the Enter key has no effect. 


e F10=Send password: lf the network asks for your pass- 
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word, press F10. ITF then shows the Send ITF Pass- 
word display: 


Send ITF Password 


Type choice, press Enter. 


Password... . 2... 


F3=Exit F12=Cancel 


Type your password to the message application and 
press the Enter key. To keep your password secure, the 
characters are not displayed as you type them. 


When you press the Enter key, ITF sends your pass- 
word. 


You cannot use this function key if a data send or 
receive operation is in progress. 


e F11=ITF telephone list: To make a switched connection 


to the remote end, press F11. The Work with ITF Tele- 
phone List display is shown. If you are using PAD 
support or an asynchronous/X.25 line, Fi1 is not shown 
on the Use Interactive Terminal Facility (ITF) display. 
You cannot use this function key if a data send or 
receive operation is in progress. 


e F12=Cancel: Pressing F12 cancels the operation asso- 


ciated with the display. You are returned to the display 
shown before the display on which F12 is pressed. 


e F14=Redial: \f you want to redial the last telephone 


number called from the Work with ITF Telephone List 
display, press F14. The system automatically calls the 
same number. F14 can only be used to redial numbers 
that were dialed from the Work with ITF Telephone List 
display. If you are using PAD support or an 
asynchronous/X.25 line, F14 is not shown on the Use 
Interactive Terminal Facility (ITF) display. You cannot 
use this function key if a data send or receive operation 
is in progress. 


e Attn=Send control character: \f you press the Attn 


(Attention) key, the Send Control Character display is 
shown. From this display, you can select options to stop 
the send/receive process or to send either a break or a 
control character. 


1 A format effector is a control character used to position printed, displayed, or recorded data. 
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Sending or Receiving a File Member or 
OfficeVision Document 


With ITF, you can send a file member or OfficeVision docu- 
ment or you can place received data into a file member. ITF 
adds a carriage return (CR) to the end of each record sent 
from a file member or OfficeVision document. 


Notes: 


1. ITF does not verify data integrity; unpredictable results 
may occur if you send a file member that contains non- 
text data (such as hexadecimal characters). 


2. ITF can send files containing up to 32 767 records. 
Unpredictable results will occur if you try to use ITF to 
send a file containing more than 32 767 records. This 
limitation does not apply to receiving files. 


To select a file member or document, press F5 when the 
Use Interactive Terminal Facility (ITF) display is shown. The 
Start Send/Receive display is shown. 


Sending or Receiving a File Member: To send a file 
member, type 1 (Send) in the Option field and 1 (File 
member) in the Type field, and press the Enter key. The 
Start Send/Receive display is shown again with additional 
fields. 


q | 
Start Send/Receive 


Type choices, press Enter. 


1=Send, 2=Receive 

1=File member, 2=Document 
Name 

Name 

Name 


Remove sequence number 


and date. ...... Y=Yes, N=No 


F3=Exit F12=Cancel 


u 5 


Type the name of the member to be sent, the name of the 
file that contains this member, and the name of the library 
that contains the file. Type either Y (Yes) or N (No) in the 
Remove sequence number and date field. If the member 
record size is less than 13 bytes, the Remove sequence 
number and date field is not valid. If you type Y, the first 12 
bytes of each record you send are deleted. Press the Enter 
key. 


The Use Interactive Terminal Facility (ITF) display is shown 
again and ITF immediately starts sending the member. As 
each record in the member is sent, either the PAD or the 
remote device must echo it so that it is shown on your 


display. (ITF cannot send file members if the PAD or remote 
device does not echo.) If you press F6 (Stop send/receive) 
at this time, you stop sending the data in the file member. 
ITF always sends the last complete record before it stops 
sending. When the last record is sent, ITF displays a 
message: 


Last record sent 


If you type 2 (Receive) in the Option field and the Type is 1 
(File member), the Start Send/Receive display is shown 
again with additional fields. 


Start Send/Receive 
Type choices, press Enter 


1=Send, 2=Receive 
TY BOF b's co ANS ge la eRe 1=File member, 2=Document 
Name 
Name 
Name 


Pilea S 0S Stara 6% 


Replaces ~ 5/0 3/2 ase 
Convert to source ... 


1=Replace, 2=Append 
Y=Yes, N=No 


F3=Exit F12=Cancel 


If the file you specify already exists, ITF asks if you want to 
replace the existing file with the new data. If you type 1 
(Replace), ITF writes the received data into the existing file 
member, writing over the previous contents. If you type 2 
(Append), ITF adds the received data to the end of the 
existing file member. Type either Y (Yes) or N (No) in the 
Convert to source field. If you type Y, the data is received, 
starting at the 13th byte of each record. Bytes 1 through 12 
of each record are used for sequence number and date. If 
the existing member has a record size less than 13 bytes, 
the Convert to source field is not valid. If you type N, the 
data is received, starting at the first byte of each record. 


After you have made your selections, ITF returns to the Use 
Interactive Terminal Facility (ITF) display while receiving data 
into the file. If you press F6 (Stop Send/Receive) at this 
time, you stop receiving data in the file member. However, 
partial records are not written into the file member. Only 
complete records are written into the file member. 


If you type 2 (Receive) in the Option field and the Type is 1 
(file member) but the member that you specify does not 
already exist in the library, ITF prompts you for more infor- 
mation to create a new file member. 


If you type 1 (Source) in the Receive type field, the following 
display is shown. 
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[ | 
Start Send/Receive 


Type choices, press Enter. 


1=Send, 2=Receive 
TYPG! siete stots. ase not cei wes 1=File member, 2=Document 
Name 
Name 
Name 


Members. 3 eee ad 
FIl@* 5: fo, 23, Asef ee 


1=Source, 2=Search for header 
1-2048 
Y=Yes, N=No 


Receive type. ..... 
Record size 2... 5% 


F3=Exit F12=Cancel 
— 4 


Record size information is handled in two ways. If you are 
creating a new file and file member, type the record size. If 
the file you specified already exists but the member does 
not, the Record size field is ignored, even though it is 
required. The record size of the member is determined by 
the record size specified in the file attributes. 


After the record size is specified, type either Y (Yes) or N 
(No) in the Convert to source field. If you type Y, the data is 
received, starting at the 13th byte. If you type Y in the 
Convert to source field, you must specify a record size of at 
least 13 bytes. Bytes 1 through 12 are used for sequence 
number and date. If you type N, the data is received starting 
at the first byte of each record. When you press the Enter 
key, ITF then returns to the Use Interactive Terminal Facility 
(ITF) display. While the receive operation is in progress, ITF 
displays the following message: 


Receive 


ITF builds headers for documents and files of documents. 
These headers contain the number of records and the record 
length. Maximum record length is 120 characters. 


If you are receiving a file member that was sent with a 
header, specify 2 (Search for header) in the Receive type 
field. ITF then uses the header record to create a new file 
member. Only data that is received after the header record 
is written to the new file member. 


If you are receiving a file member that was not sent with a 
header, specify 1 (Source) in the Receive type field and type 
the record size. All data received is written to the file 
member. 


Note: If you are receiving data into a file member, users at 
other work stations cannot send data from or receive data 
into that file member until your operation is completed. 


Sending or Receiving OfficeVision Documents: To 
send an OfficeVision document, type 1 in the Option field, 


type 2 (Document) in the Type field, and press the Enter key. 


The following display is shown: 


8-4 —AS/400 Asynchronous Communications Programming V4R1 


[_ Start Send/Receive 


Type choices, press Enter. 


1=Send, 2=Receive 


TYP @z:cse te sek se motes “yh ps! 2 1=File member, 2=Document 


Document ........ Name, *ALL 
FOVMOM 6 ve. 50 ay a Name 


F3=Exit F12=Cancel 


g 


Either enter the name of the document or type *ALL for all of 
the documents in a folder. Then type the name of the folder 
that contains the documents. After you press the Enter key, 
the Use Interactive Terminal Facility display is shown again. 


ITF immediately starts sending the documents. Each record 
is shown on the display as the PAD or remote device echoes 
it back. (ITF cannot send if the PAD or remote device does 
not echo.) When the last record is sent, ITF displays a 
message: 


Document(s) sent 


ITF only sends the first 120 characters of each line in the 
document. Any characters beyond the first 120 are truncated 
and the following message is shown: 


Document(s) sent. End of data dropped. 


If *ALL was specified for the document name, all of the docu- 
ments in the folder are sent. 


Notes: 


1. ITF only sends the base line, superscript, and subscript 
text from a document. No document control characters 
are sent. Superscripts and subscripts are handled as 
separate records. 


2. ITF attempts to maintain line integrity such as blank 
lines. 


3. A blank line is sent between pages of a document and 
between documents. 


You can use the Print Document (PRTDOC) command to 
resolve the documents to the file that you select. See the 
online information for more information on the PRTDOC 
command. After you resolve the documents to a file 
member, you can use the ITF Start Send/Receive display to 
send the documents as a file. After the file member is sent, 
messages are displayed that indicate the number of docu- 
ments sent and if those documents were truncated. 


ITF cannot directly receive OfficeVision documents. There- 
fore, the information should be received as a new file 
member with a record length of 120. To receive these docu- 
ments, use the Start Send/Receive display and specify the 
Receive type as 2 (Search for header). 


When ITF sends documents or a file of documents, a header 
is sent as the first record. ITF searches for the header and 
uses the information in the header to create the file member. 
If the number of records specified in the header is exceeded, 
the additional records are not written into the new file 
member. These records are displayed on the terminal as 
data. 


Work with ITF Telephone List 


The Work with ITF Telephone List function allows you to 
maintain a list of telephone numbers. 


Note: This function is not available if the device you are 
using is attached to an X.25 line. You can call the numbers 
on the list, or you can change, add, or delete numbers from 
the telephone list. If you press F11 (ITF telephone list) from 
the Use Interactive Terminal Facility (ITF) display, the Work 
with ITF Telephone List display is shown: 


[ | 
Work with ITF Telephone List 
Library... 2.3: 


Type options, press Enter. 
1=Call number 2=Change 4=Delete 


Option Description Prefix Telephone number 


More... 


F3=Exit F6=Add entries F12=Cancel 


L J 


This display lists the telephone numbers that you can call 
from ITF. Position the cursor in the function field of the tele- 
phone number you want to work with. Type the option; then 
press the Enter key. Using the options, you can call a 
number, change a number, or delete a number from the tele- 
phone list. 


¢ Option: 


— To call a number, type 1 in the Option field of the 
number you want to call. 

— To change a number, type 2 in the Option field of 
the number you want to change, and make the 
changes. 

— To delete a number, type 4 in the Option field of the 
number you want to delete. 


e Description: This field is optional. You can use this field 
to type the name of the location with which you want to 
communicate. 


e Prefix: \f you are communicating through a command- 
capable modem, the prefix field gives the modem infor- 
mation about how to make the switched connection. If 
your modem does not make the switched connection for 


you, this field is not necessary and you can leave it 
blank. 


e Telephone number: Type the telephone number of the 
remote location to which you want to communicate. If 
you are communicating through a packet-switching data 
network (PSDN), the telephone number that you call is a 
number for a PAD, which gives you access to the 
network. It is not the number for the remote location. 
Once you have signed on the network, it will route your 
message to the remote location that you specify. 


You can select options in more than one option field before 
pressing the Enter key. However, ITF processes all delete 
options first, followed by any changes, and then calls the first 
number selected. When the system calls a number from the 
Work with ITF Telephone List display, it does not process 
other call options selected after the call request. 


If more than one call request is made (option 1), only the first 
call requested is made. 


When you press F3, the Use Interactive Terminal Facility 
(ITF) display is shown again. Any data that you have typed 
on the Work with ITF Telephone List display is ignored. 


After the system makes a connection with the network, the 
Use Interactive Terminal Facility (ITF) display is shown 
again. You must now sign on the message application. 
Refer to the operator’s book for the application sign-on and 
sign-off commands and for the send and receive message 
commands. 


The telephone list is in the file member #ITFPHONE. The 
file name is #ITFPHONE and the library is the current one. 
The Library field on the Work with ITF Telephone List display 
shows the current library name. 


If you press F6 (Add entries), the Add Telephone Entries 
display is shown. New entries are not processed into the 
telephone list until you press the Enter key. All entries must 
be unique. You can leave the description and prefix fields 
blank. You can have up to 175 telephone entries. 


[_ Add Telephone Entries 


Type information, press Enter. 
Description Prefix Telephone number 


F3=Exit F12=Cancel 


L 
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Using the Attn Key to Send a Control 
Character 


When you press the Attn (Attention) key, the Send Control 
Character display is shown. 


i | 
Send Control Character 


Type choice, press Enter. 


Option 
or control character. .... 1=Stop send/receive 


2=Send break 


Control Control Control 
Char Desc ASCII Char Desc ASCII Char Desc ASCII 
A SOH 01 Le FF oc W ETB 7 
B STX 02 M CR oD Xx CAN 18 
c ETX 03 N so OE s EM 19 
D 0 04 0 SI OF rs SUB 1A 
E ENQ 05 P DLE 10 3 NUL 00 
F ACK 06 Q DC1 11 4 ESC 1B 
G BEL 07 R Dc2 12 5 FS 1C 
H BKSP 08 Ss DCc3 13 6 GS 1D 
I HT 09 T Dc4 14 7 RS 1E 
J CE OA U NAK 15 8 US 1F 
K VT 0B v SYN 16 9 DEL 7F 


F3=Exit F12=Cancel 
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Each letter or number is associated with a function (option 1 
or 2) or with a control character. Type your choice and press 
the Enter key. ITF does the requested action and then 
returns to the Use Interactive Terminal Facility (ITF) display. 
Only one function or one control character at a time can be 
sent from this display. 


If you select option 1 (Stop send/receive), all send or receive 
processing is stopped. If you select option 2 (Send break), a 
break signal is sent to the host system application. The 
control characters sent from this display are not translated. 
No carriage return (CR) is added to the control character. 


Appendix A. Language Operations, DDS Keywords, and System-Supplied 


Formats 


This appendix contains charts describing: 


e All valid communications operations supported by the intersystem communications func- 


tion (ICF) 


¢ Valid operations for each programming language that supports ICF 


e Data description specifications (DDS) processing keywords 


¢ System-supplied formats 


ICF Operations and Supported Language Operations 
Figure A-1 describes the language operations supported by ICF. 


Figure A-1. ICF Operations 


ICF Operations 


Description 


Open 

Acquire 

Get attributes 
Read 


Read-from-invited- 
program-devices 


Write 


Write/Read 


Release 
Close 


Opens the ICF file. 

Establishes a session between the application and the remote location. 
Used to determine the status of the session. 

Obtains data from a specific session. 


Obtains data from any session that has responded to an invite function. 


Passes data records from the issuing program to the other program in the 
transaction. 


Allows a write operation followed by a read operation. Valid for ILE RPG/400 
only. 


Attempts to end a session. 
Closes the ICF file. 


Figure A-2 shows all the valid operations for each programming language that supports ICF 
(ILE C/400, ILE COBOL/400, FORTRAN/400, and ILE RPG/400 programming languages). 


Figure A-2 (Page 1 of 2). Valid Operations for Programming Languages 


ICF Operation ILE ILE ILE C/400 Function FORTRAN/400 
RPG/400 COBOL/400 Statement 
Opera- Procedure 
tion Statement 
Code 
Open OPEN OPEN fopen, _Ropen OPEN 
Acquire ACQ ACQUIRE _Racquire Not supported2 
Get attributes POST ACCEPT _Rdevatr Not supported 
Read READ READ fread, _Rreadn READ 
Read-from-invited- READ! READ! _Rreadindv Not supported 
program-devices 
Write WRITE WRITE fwrite, _Rwrite WRITE 
Write/Read EXFMT Not sup- _Rwriterd Not supported 
ported 
Release REL DROP _Rrelease Not supported 
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Figure A-2 (Page 2 of 2). Valid Operations for Programming Languages 


ICF Operation ILE ILE ILE C/400 Function FORTRAN/400 
RPG/400 COBOL/400 Statement 
Opera- Procedure 
tion Statement 
Code 

Close CLOSE CLOSE fclose, _Rclose CLOSE 


1 A read operation can be directed either to a specific program device or to any invited program device. 
The support provided by the compiler you are using determines whether to issue an ICF read or read- 
from-invited-program-devices operation, based on the format of the read operation. For example, if a 
read is issued with a specific format or terminal specified, the read operation is interpreted as an ICF 
read operation. Refer to the appropriate language reference book for more information. 


2 To acquire a program device using FORTRAN/400, you must specify the program device on the 
ACQPGMDEV parameter on the CRTICFF, CHGICFF, or OVRICFF commands. The program device 
will then be implicitly acquired when the ICF file is opened. 


DDS Keywords 


The following table lists the DDS keywords that are valid for asynchronous communications. 


Figure A-3. DDS Keywords 


DDS Keyword Description 

CNLINVITE Cancels any invite function for which no input has been received. 

DETACH Ends the transaction with the target system. 
Note: DETACH is only valid when used with the EVOKE keyword. 

EOS Ends a communications session. 

EVOKE Starts a program on the remote system. 

FAIL Notifies the remote program that an error has occurred. 

FMH Informs the remote program that function-management-header data is being 
sent. 

INVITE Schedules an invite function. 

RCVFAIL Indicates that the remote program has sent a fail. 

RECID Used to allow the data content to identify the record format to use to receive the 
data. 


Note: Refer to the /CF Programming, SC41-5442, for more information about 
the RECID keyword. 


SECURITY Includes security information needed to start a program on the target system. 
Valid only with an EVOKE keyword. 
TIMER Allows you to specify an interval of time to wait before a read-from-invited- 


program-devices operation receives a timer-expired return code. 


VARLEN Allows you to specify, at run time, the length of the data to be sent across the 
communications line. 


Note: Refer to the /CF Programming, SC41-5442, for more information about 
the VARLEN keyword. 


System-Supplied Formats 


The following table lists all the keyword functions performed by the system-supplied formats 
that are valid for asynchronous communications. Refer to the CF Programming book for 
more information about system-supplied formats. 
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Figure A-4. System-Supplied Formats 


System-Supplied Formats Description 

$$CNLINV Cancel invite 

$$EOS End of session 

$$EVOK Evoke with invite 
$$EVOKET Evoke with detach 
$$EVOKNI Evoke 

$$FAIL Fail 

$$SEND Write then invite or invite 
$$SENDNF Write function-management-header 
$$SENDNI Write 

$$TIMER Timer 
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Appendix B. Return Codes, Messages, and Sense Codes 


Return Codes 


This section describes all the return codes that are valid for asynchronous communications. 
These return codes are set in the I/O feedback area of the ICF file; they report the results of 
each I/O operation issued by your application program. Your program should check the 
return code and act accordingly. Refer to your high-level language book for more informa- 
tion on how to access these return codes. 


Each return code is a four-digit hexadecimal value. The first two digits contain the major 
code, and the last two digits contain the minor code. 


With some return codes, a message is also sent to the job log or the system operator 
message queue (QSYSOPR). You can refer to the message for additional information. 


Notes: 


1. In the return code descriptions, your program refers to the local AS/400 application 
program that issues the operation and receives a return code from ICF communications. 
The remote program refers to the application program on the remote system with which 
your program is communicating through ICF. 

2. Several references to input and output operations are made in the descriptions. These 
operations can include DDS keywords and system-supplied formats, which are listed in 
Appendix A. 


Major Code 00 
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Major Code 00 — Operation completed successfully. 


Description: The operation issued by your program completed successfully. Your 
program may have sent or received some data, or may have received a message from 
the remote system. 


Action: Examine the minor return code and continue with the next operation. 


Code Description/Action 


0000 Description: For input operations issued by your program, 0000 indicates that 
your program received some data on a successful input operation. Your 
program can continue to receive data, or it can send data to the remote 
program. 


For output operations issued by your program, 0000 indicates that the last 
output operation completed successfully and that your program can continue to 
send data. 


Action: For the actions which can be taken after 0000 is received, refer to the 
following table: 


Figure B-1 (Page 1 of 2). Actions for Return Code 0000 


Type of Session Last Operation Actions Your Program Can Take 

Issued 
Started by a Acquire or open Issue an evoke or timer function, or a get-attributes 
source program operation. 


B-1 


Figure B-1 (Page 2 of 2). Actions for Return Code 0000 


Type of Session Last Operation Actions Your Program Can Take 
Issued 
Evoke with detach or Issue another evoke function, issue a release opera- 
write with detach tion, continue local processing, or end. 
Any other output Issue another output operation (except evoke), or issue 
operation an input operation. 
End-of-Session Continue local processing or end. 

Started by a Acquire or open Issue an input or output operation. 


remote program 
start request! 


Write with detach Continue local processing or end. This session has 
ended. 

Any other output Issue another output operation (except evoke), or issue 

operation an input operation. 

End-of-Session Continue local processing or end. 


1 A target program (started by a program start request) cannot issue an evoke function in this session; 
it can issue an evoke function only in a different session that it has first acquired. 


0004 Description: On a successful input operation, your program received a PAD 
message from the remote PAD. The message may be a parameter indication, 
an error indication, or an invitation to clear. See “PAD Messages” on page 3-5 
for more information about PAD messages. 


Action: Process the PAD message. 


0016 Description: On a successful input operation, your program received some 
data containing a parity error and/or a stop bit error (framing). 


Action: Notify the remote program to send the data again. 


Messages: 
CPD6B91 (Diagnostic) 
0042 Description: Your program received some data on a successful input opera- 


tion. However, some data was lost, possibly due to an overrun situation. 


Action: Notify the remote program to send the data again, and ensure that the 
maximum buffer length configured on the line description is large enough to 
contain any expected data. 


Messages: 
CPD6B92 (Diagnostic) 


Major Code 02 


Major Code 02 — Input operation completed successfully, but your job is being ended 
(controlled). 


Description: The input operation issued by your program completed successfully. Your 
program may have received some data or a message from the remote system. 
However, your job is being ended (controlled). 


Action: Your program should complete its processing and end as soon as possible. 
The system eventually changes a job ended (controlled) to a job ended (immediate) and 
forces all processing to stop for your job. 
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Code Description/Action 


0200 Description: On a successful input operation, your program received some 
data. Also, your job is being ended (controlled). 


Action: Your program can continue to receive data, or it can send data to the 
remote program. However, the recommended action is to complete all pro- 
cessing and end your program as soon as possible. The system eventually 
changes a job ended (controlled) to a job ended (immediate) and forces all pro- 
cessing to stop for your job. 


0204 Description: On a successful input operation, your program received a PAD 
message from the remote PAD. The message may be a parameter indication, 
an error indication, or an invitation to clear. See “PAD Messages” on page 3-5 
for more information about PAD messages. Also, your job is being ended (con- 
trolled). 


Action: Your program can process the PAD message. However, the recom- 
mended action is to complete all processing and end your program as soon as 
possible. The system eventually changes a job ended (controlled) to a job 
ended (immediate) and forces all processing to stop for your job. 


0216 Description: On a successful input operation, your program received some 
data containing a parity error and/or a stop bit error (framing). Also, your job is 
being ended (controlled). 


Action: Your program can notify the remote program to send the data again. 
However, the recommended action is to complete all processing and end your 
program as soon as possible. The system eventually changes a job ended 
(controlled) to a job ended (immediate) and forces all processing to stop for 
your job. 


Messages: 
CPD6B91 (Diagnostic) 


0242 Description: Your program received some data on a successful input opera- 
tion. However, some data was lost, possibly due to an overrun situation. Also, 
your job is being ended (controlled). 


Action: Your program can notify the remote program to send the data again, 
and ensure that the maximum buffer length configured on the line description is 
large enough to contain any expected data. However, the recommended action 
is to complete all processing and end your program as soon as possible. The 
system eventually changes a job ended (controlled) to a job ended (immediate) 
and forces all processing to stop for your job. 


Messages: 
CPD6B92 (Diagnostic) 


Major Code 03 


Major Code 03 — Input operation completed successfully, but no data received. 


Description: The input operation issued by your program completed successfully, but 
no data was received. 


Action: Examine the minor return code and continue with the next operation. 
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Code 
0300 


0302 


0309 


0310 


Description/Action 


Description: On a successful input operation, your program received no data 
to process. The session is still active. 


Action: Issue an input or output operation. 


Description: On a successful input operation, your program received a fail 
indication without any data. Either the remote program has sent a fail function, 
or the system has detected a break condition. All data received by the asyn- 
chronous support that is not given to your program on an input operation is 
discarded. 


Action: Issue an input operation to receive the reason for the fail from the 
remote program. 


Messages: 
CPD6B92 (Diagnostic) 


Description: On a read-from-invited-program-devices operation, your program 
did not receive any data. Also, your job is being ended (controlled). 


Action: Your program can continue processing. However, the recommended 

action is to complete all processing and end your program as soon as possible. 
The system eventually changes a job ended (controlled) to a job ended (imme- 
diate) and forces all processing to stop for your job. 


Messages: 
CPF4741 (Notify) 


Description: On a read-from-invited-program-devices operation, the time 
interval specified by a timer function in your program or by the WAITRCD value 
specified for the ICF file expired. 


Action: Issue the intended operation after the specified time interval has 
ended. For example, if you were using the time interval to control the length of 
time to wait for data, you can issue another read-from-invited-program-devices 
operation to receive the data. 


Note: Since no specific program device name is associated with the com- 
pletion of this operation, the program device name in the common I/O feedback 
area is set to *N. Therefore, your program should not make any checks based 
on the program device name after receiving the 0310 return code. 


Messages: 


CPF4742 (Status) 
CPF4743 (Status) 


Major Code 04 


Major Code 04 — Output exception occurred. 


Description: An output exception occurred because your program attempted to send 
data when it should be receiving data. The data from your output operation was not 
sent. You can attempt to send the data later. 


Action: Issue an input operation to receive the data. 
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Code 
0412 


Description/Action 


Description: An output exception occurred because your program attempted 
to send data when it should be receiving data available from the remote 
program or from the PAD. The data from your output operation was not sent to 
the remote system. Your program can attempt to send the data later. 


Action: Issue an input operation to receive the data. 


Note: If your program issues another output operation before an input opera- 
tion, your program receives a return code of 831C. 


Messages: 


CPF4750 (Notify) 
CPF5076 (Notify) 


Major Codes 08 and 11 


Major Codes 08 and 11 — Miscellaneous program errors occurred. 


Description: The operation just attempted by your program was not successful. The 
operation may have failed because it was issued at the wrong time. 


Action: Refer to the minor code description for the appropriate recovery action. 


Code 
0800 


1100 


Description/Action 


Description: The acquire operation just attempted by your program was not 
successful. Your program tried to acquire a program device that was already 
acquired and is still active. 


Action: If the session associated with the original acquire operation is the one 
needed, your program can begin communicating in that session since it is 
already available. If you want a different session, issue another acquire opera- 
tion for the new session by specifying a different program device name in the 
PGMDEV parameter of the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command that precedes the program. 


Messages: 


CPD4077 (Diagnostic) 
CPF5041 (Status) 
CPF50A0 (Status) 


Description: The read-from-invited-program-devices operation just attempted 
by your program was not successful because your program tried this operation 
when no program devices were invited and no timer function was in effect. 


Action: Issue an invite function (or a combined operation that includes an 
invite) followed by a read-from-invited-program-devices operation. 


Messages: 
CPF4740 (Notify) 
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Major Code 34 


Major Code 34 — Input exception occurred. 


Description: The input operation attempted by your program was not successful. The 
data received was too long for your program's input buffer or was not compatible with the 
record format specified on the input operation. 


Action: Refer to the minor code description for the appropriate recovery action. 


Code Description/Action 


3441 Description: A valid record format name was specified with format selection 
type “RECID. However, although the data received matched one of the record 
formats in the ICF file, it did not match the format specified on the read opera- 
tion. 

Action: Correct your program to issue a read operation that does not specify a 
record format name, or specify the correct record format name to process the 
data based on the format selection option for the file. 


Messages: 
CPF5058 (Notify) 


3451 Description: Your program specified a file record size that was not large 
enough for the indicators to be included with the data sent by the remote 
program (for a file defined with a nonseparate indicator area). Your program 
did not receive any data. For a file using a nonseparate indicator area, the 
actual record length field in the device-dependent I/O feedback area contains 
the number of indicators specified by the record format. 


Action: End the session; close the file; correct the file record size; then open 
the file again. 


Messages: 
CPF4768 (Notify) 


Major Code 80 


Major Code 80 — Permanent system or file error (irrecoverable). 


Description: An irrecoverable file or system error has occurred. The underlying com- 
munications support may have ended and your session has ended. If the underlying 
communications support ended, it must be established again before communications can 
resume. Recovery from this error is unlikely until the problem causing the error is 
detected and corrected. 


Action: You can perform the following general actions for all 80xx return codes. Spe- 
cific actions are given in each minor code description. 


¢ Close the file, open the file again, then establish the session. If the operation is still 
not successful, your program should end the session. 

¢ Continue local processing. 

e End. 


Note: If the session is started again, it starts from the beginning, not at the point where 
the session error occurred. 
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Code 
8081 


8082 


80B3 


80EB 


Description/Action 


Description: The operation attempted by your program was not successful 
because a system error condition was detected. 


Action: Your communications configurations may need to be varied off and 
then on again. Your program can do one of the following: 


¢ Continue local processing. 
¢ Close the ICF file, open the file again, and establish the session again. 
e End. 


Messages: 


CPF4170 (Escape) 
CPF4510 (Escape) 
CPF5257 (Escape) 
CPF5447 (Escape) 


Description: The operation attempted by your program was not successful 
because the device supporting communications between your program and the 
remote location is not usable. For example, this may have occurred because 
communications were stopped for the device by a Hold Communications 
Device (HLDCMNDEV) command, or because a cancel reply was issued in 
response to an error recovery message for the device. Your program should 
not issue any operations to the device. 


Action: Communications with the remote program cannot resume until the 
device has been reset to a varied on state. If the device has been held, use 
the Release Communications Device (RLSCMNDEV) command to reset the 
device. If the device is in an error state, vary the device off and then on again. 
Your program can attempt to establish the session again, continue local pro- 
cessing, or end. 


Messages: 


CPF4744 (Escape) 
CPF5269 (Escape) 


Description: The open operation issued by your program was not successful 
because the ICF file is in use by another process. 


Action: Wait for the file to become available, then issue another open opera- 
tion. Otherwise, your program may continue processing, or it can end. 


Consider increasing the WAITFILE parameter with the Change ICF File 
(CHGICFF) or Override ICF File (OVRICFF) command to allow more time for 
the file resources to become available. 


Messages: 
CPF4128 (Escape) 


Description: The open operation attempted by your program was not suc- 
cessful due to one of the following: 


e Your program used an option of update or delete to open the file, but that 
option is not supported by the program device. 

¢ Your program requested both blocked data and user buffers on an open 
option, but these formats cannot be selected together. 

e Your program tried to open a source file, but the file was not created as a 
source file. 

e There is a mismatch on the INDARA keyword between your program and 
the ICF file as to whether or not a separate indicator area should be used. 

e The file was originally opened as a shared file; however, no program 
devices were ever acquired for the file before your program attempted the 
current open operation. 


Action: After performing one of the following actions, your program can try the 
open operation again: 


Appendix B. Return Codes, Messages, and Sense Codes B-7 


e lf the update and delete options are not supported for the program device, 
use an option of input, or output, or both. 

e lf your program tried selecting user buffers and blocked data together, it 
should try selecting one or the other, but not both. 

e lf your program tried to open a non-source file as a source file, either 
change the file name or change the library name. 

e lf there was a mismatch on the INDARA keyword, either correct the file or 
correct your program so that the two match. 

e If no program devices were previously acquired for a shared file, acquire 
one or more program devices for the file. 


Messages: 


CPF4133 (Escape) 
CPF4156 (Escape) 
CPF4238 (Escape) 
CPF4250 (Escape) 
CPF4345 (Escape) 
CPF5522 (Escape) 

( 


CPF5549 (Escape) 


80ED Description: The open operation attempted by your program was not suc- 
cessful because there is a record format level mismatch between your program 
and the ICF file. 


Action: Close the file. Compile your program again to match the file level of 
the ICF file, or change or override the file to LVLCHK(*NO); then open the file 
again. 
Messages: 

CPF4131 (Escape) 


80EF Description: Your program attempted an open operation on a file or library for 
which the user is not authorized. 


Action: Close the file. Either change the file or library name on the open 
operation, or obtain authority for the file or library from your security officer. 
Then issue the open operation again. 


Messages: 
CPF4104 (Escape) 


80F8 Description: The open operation attempted by your program was not suc- 
cessful because one of the following occurred: 


e The file is already open. 
e The file is marked in error on a previous return code. 
Action: 

e If the file is already open, close the file and end your program. Remove 
the duplicate open operation from your program, then issue the open oper- 
ation again. 

e If the file is marked in error, your program can check the job log to see 
what errors occurred previously, then take the appropriate recovery action 
for those errors. 


Messages: 


CPF4132 (Escape) 
CPF5129 (Escape) 
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Major Code 81 


Major Code 81 — Permanent session error (irrecoverable). 


Description: An irrecoverable session error occurred during an I/O operation. Your 
session cannot continue and has ended. Before communications can resume, the 
session must be established again by using an acquire operation or another program 
start request. Recovery from this error is unlikely until the problem causing the error is 
detected and corrected. Operations directed to other sessions associated with the file 
should work. 


Action: You can perform the following general actions for all 81xx return codes. Spe- 
cific actions are given in each minor return code description. 


If your program initiated the session, you can: 


¢ Correct the problem and establish the session again. If the operation is still not 
successful, your program should end the session. 

¢ Continue processing without the session. 

e End. 


If your session was initiated by a program start request from the remote program, you 
can: 


¢ Continue processing without the session. 
e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the config- 
uration off, make the change to the configuration description, then vary the config- 
uration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value specified in 
the configuration (for your program only). Therefore, in some cases, you 
may choose to make a change with the ADDICFDEVE or OVRICFDEVE 
command rather than in the configuration. 


Several other minor codes indicate a line or remote system error and may require an 
operator to correct the error. 


Note: If the session is started again, it starts from the beginning, not at the point where 
the session error occurred. 


Code Description/Action 


8140 Description: A cancel reply was received from your program or from the oper- 
ator in response to a notify message, or was the result of a system default, 
causing the session to be ended. The session is no longer active. 


Action: If your program started the session, issue an acquire operation to start 
the session again. If your program was started by a program start request, it 
can continue local processing or end. 


Messages: 
CPF5104 (Escape) 
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8191 Description: A permanent line or controller error occurred on an input or 
output operation, and the system operator attempted recovery in response to 
the error message. You can learn what type of line error occurred by checking 
the system operator's message queue. The session has ended. Data may 
have been lost. 


Action: If your program started the session, issue an acquire operation to start 
the session again. If your program was started by a program start request from 
the remote program, it can continue local processing or end. 


Messages: 


CPF4146 (Escape) 
CPF4155 (Escape) 
CPF5128 (Escape) 
CPF5138 (Escape) 
CPF6B82 (Escape) 

( 


CPF6B83 (Escape) 


81E9 Description: An input operation was issued and the format selection option for 
the ICF file was *RECID, but the data received did not match any record 
formats in the file. There was no format in the file defined without a RECID 
keyword, so there was no default record format to use. The session has 
ended. 


Action: Verify that the data sent by the remote program was correct. If the 
data was not correct, have the operator on the remote system change the 
remote program to send the correct data. If the data was correct, add a RECID 
keyword definition to the file that matches the data, or define a record format in 
the file without a RECID keyword so that a default record format can be used 
on input operations. If your program started the session, use another acquire 
operation to start the session again. If a program start request started your 
program, continue local processing or end. 


Messages: 
CPF5291 (Escape) 
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Major Code 82 


Major Code 82 — Open or acquire operation failed. 


Description: Your attempt to establish a session was not successful. The error may be 
recoverable or permanent, and recovery from it is unlikely until the problem causing the 
error is detected and corrected. 


Action: You can perform the following general actions for all 82xx return codes. Spe- 
cific actions are given in each minor code description. 


If your program was attempting to start the session, you can: 


¢ Correct the problem and attempt to establish the session again. The next operation 
could be successful only if the error occurred because of some temporary condition 
such as the communications line being in use at the time. If the operation is still not 
successful, your program should end. 

¢ Continue processing without the session. 

e End. 


If your session was initiated by a program start request from the remote program, you 
can: 


¢ Correct the problem and attempt to connect to the requesting program device again. 
If the operation is still not successful, your program should end. 

¢ Continue processing without the session. 

e End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


¢ To change a parameter value in the communications configuration, vary the config- 
uration off, make the change to the configuration description, then vary the config- 
uration on. 

¢ To change a parameter value in the file, use the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value specified in 
the configuration (for your program only). Therefore, in some cases, you 
may choose to make a change with the ADDICFDEVE or OVRICFDEVE 
command rather than in the configuration. 


If no changes are needed in your file or in the configuration (and depending on what the 
return code description says): 


e lf the attempted operation was an acquire, issue the acquire operation again. 
e If the attempted operation was an open, close the file and issue the open operation 
again. 


Code Description/Action 
8209 Description: The open or acquire operation issued by your program was not 


successful because a prestart job is being canceled. One of the following may 
have occurred: 


e An End Job (ENDJOB), End Prestart Job (ENDPJ), End Subsystem 
(ENDSBS), End System (ENDSYS), or Power Down System 
(PWRDWNSYS) command was being issued. 

¢ The maximum number of prestart jobs (MAXJOBS parameter) was 
reduced by the Change Prestart Job Entry (CHGPJE) command. 
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e The value for the maximum number of program start requests allowed 
(specified in the MAXUSE parameter on the ADDPJE or CHGPJE 
command) was exceeded. 

¢ Too many unused prestart jobs exist. 

e The prestart job had an initialization error. 


Action: Complete all processing and end your program as soon as possible. 
Correct the system error before starting this job again. 


Messages: 


CPF4292 (Escape) 
CPF5313 (Escape) 


8233 Description: A program device name that was not valid was detected. Either 
an ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command was not run, or 
the program device name in your program does not match the program device 
name specified in the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE 
command for the session being acquired. The session was not started. 


Action: If the error was in your program, change your program to specify the 
correct program device name. If an incorrect identifier was specified in the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command, specify the correct 
value in the PGMDEV parameter. 


Messages: 


CPF4288 (Escape) 
CPF5068 (Escape) 


8281 Description: On an unsuccessful open or acquire operation, a system error 
condition was detected. For example, the file may previously have been in 
error, or the file could not be opened due to a system error. 


Action: Your communications configurations may need to be varied off and 
then on again. Your program can do one of the following: 


¢ Continue local processing. 

¢ Close the ICF file, open the file again, and acquire the program device 
again. However, if this results in another 8281 return code, your program 
should close the file and end. 

¢ Close the file and end. 


Messages: 


CPF4168 
CPF4182 
CPF4304 
CPF4369 (Escape) 
CPF4370 (Escape) 


(Escape) 
( 
( 
( 
( 
CPF4375 (Escape) 
( 
( 
( 
( 
( 


Escape) 
Escape) 


CPF5257 (Escape) 
CPF5274 (Escape) 
CPF5317 (Escape) 
CPF5318 (Escape) 
CPF5355 (Escape) 


8282 Description: The open or acquire operation attempted by your program was 
not successful because the device supporting communications between your 
program and the remote location is not usable. For example, this may have 
occurred because communications were stopped for the device by a Hold Com- 
munications Device (HLDCMNDEV) command, or because a cancel reply was 
issued in response to an error recovery message for the device. Your program 
should not issue any operations to the device. The session was not started. 


Action: Communications with the remote program cannot resume until the 
device has been reset to a varied on state. If the device has been held, use 
the Release Communications Device (RLSCMNDEV) command to reset the 
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8285 


82A8 


82A9 


device. If the device is in an error state, vary the device off, then on again. 
Your program can attempt to acquire the program device again, continue local 
processing, or end. 


Messages: 


CPF4298 
CPF4354 
CPF5269 
CPF5548 


Description: On an open or acquire operation, the attempt by your program to 
call a remote location automatically using a switched connection was not suc- 
cessful. The number specified on the controller description was dialed, but the 
connection was not established. Possible causes are that the line was busy, 
that there was no answer, or that the number dialed was disconnected. The 
session was not started. 


Escape) 
Escape) 
Escape) 
Escape) 


( 
( 
( 
( 


Action: Verify that the number you are dialing is correct and that the remote 
system is ready for the call. Also verify that the line description you are using 
is varied on and is included in the switched line list on the controller 
description. Your program can issue the open or acquire operation again, con- 
tinue local processing, or end. 


Messages: 
CPF5260 (Escape) 


Description: The acquire operation attempted by your program was not suc- 
cessful because the maximum number of program devices allowed for the ICF 
file has been reached. The session was not started. 


Action: Your program can recover by releasing a different program device and 
issuing the acquire operation again. If more program devices are needed, 
close the file and increase the MAXPGMDEV value for the ICF file. 


Messages: 


CPF4745 (Diagnostic) 
CPF5041 (Status) 


Description: The acquire operation issued by your program to a 
“REQUESTER device was not successful due to one of the following causes: 


¢ Your program has already acquired the *REQUESTER device. 

e The job was started by a program start request with the *REQUESTER 
device detached. 

e The “REQUESTER device was released because an end-of-session was 
requested. 

e The job does not have a *REQUESTER device; that is, the job was not 
started by a program start request. 

¢ A permanent error occurred on the session. 


Action: 


e If the *~REQUESTER device is already acquired and your program expects 
to communicate with the *REQUESTER device, use the program device 
that acquired the *REQUESTER. 

e If the *REQUESTER device is not available and your program expects to 
communicate with the *REQUESTER device, the remote program must 
send a program start request without a detach function. 

e If your program released its *REQUESTER device, correct the error that 
caused your program to release its *REQUESTER device before trying to 
acquire it. 

e If this job does not have a *REQUESTER device, correct the error that 
caused your program to attempt to acquire a *REQUESTER device. 

e lf a permanent error caused the acquire operation to fail, verify that your 
program correctly handles the permanent error return codes (80xx, 81xx) it 
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received on previously issued input and output operations. Because your 
program was started by a program start request, your program cannot 
attempt error recovery after receiving a permanent error return code. It is 
the responsibility of the remote program to initiate error recovery. 


Messages: 


CPF4366 (Escape) 
CPF5380 (Escape) 
CPF5381 (Escape) 


82AA Description: The open or acquire operation attempted by your program was 
not successful because the remote location name specified on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command does not match 
any remote location configured on the system. The session was not started. 


Action: Your program can continue local processing, or close the file and end. 
Verify that the name of the remote location is specified correctly in the 
RMTLOCNAME parameter on the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 


Messages: 


CPF4103 (Escape) 
CPF4363 (Escape) 
CPF4364 (Escape) 
CPF4747 (Escape) 
CPF5378 (Escape) 

( 


CPF5379 (Escape) 


82AB Description: The open or acquire operation attempted by your program was 
not successful because the device description for the remote location was not 
varied on. The session was not started. 


Action: Your program can wait until the communications configuration is 
varied on and then issue the acquire operation again, it can try the acquire 
operation again using a different device description, continue local processing, 
or end. 


Messages: 


82B3 Description: The open or acquire operation attempted by your program was 
not successful because your program is trying to use a device description that 
is already in use by another job. The session was not started. 


Action: Wait for the device description to become available, then issue the 
acquire operation again. You can use the Work with Configuration Status 
(WRKCFGSTS) command to determine which job is using the device 
description. Consider increasing the WAITFILE parameter of the CHGICFF or 
OVRICFF command to allow more time for the device to become available. 
Otherwise, your program can continue local processing or end. 


Messages: 


CPF4106 (Escape) 
CPF5507 (Escape) 


82EA Description: The open or acquire operation attempted by your program was 
not successful. A format selection of “RECID was specified on the 
ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command, but cannot be 
used with the ICF file because the RECID DDS keyword is not used on any of 
the record formats in the file. The session was not started. 


Action: Close the ICF file. Change the record format selection (FMTSLT) 
parameter to select formats by some means other than *RECID, or use a file 
that has a RECID DDS keyword specified for at least one record format. Open 
the file again. 


Messages: 
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82EE 


82EF 


82F0 


82F5 


CPF4348 (Escape) 
CPF5521 (Escape) 


Description: Your program attempted an open or acquire operation to a 
device that is not supported. Your program tried to acquire a device that is not 
a valid ICF communications type, or it is trying to acquire the requesting 
program device in a program that was not started by a program start request. 
The session was not started. 


Action: Your program can continue local processing or end. Verify that the 
name of the remote location is specified correctly in the RMTLOCNAME param- 
eter on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. If your 
program was attempting to acquire a non-ICF device, use the appropriate inter- 
face for that communications type. If your program was attempting to acquire a 
requesting program device, verify that your program is running in the correct 
environment. 


Messages: 


CPF4105 (Escape) 
CPF4223 (Escape) 
CPF4251 (Escape) 
CPF4760 (Escape) 
CPF5038 (Escape) 
CPF5550 (Escape) 


Description: Your program attempted an acquire operation, or an open opera- 
tion that implicitly acquires a session, to a device that the user is not authorized 
to, or that is in service mode. The session was not started. 


Action: If the operation was an acquire, correct the problem and issue the 
acquire again. If the operation was an open, close the file, correct the problem, 
then issue the open operation again. To correct an authority error, obtain 
authority for the device from your security officer or device owner. If the device 
is in service mode, wait until machine service function (MSF) is no longer using 
the device before issuing the operation again. 


Messages: 


CPF4104 
CPF4186 
CPF5278 
CPF5279 


Description: The open or acquire operation attempted by your program to a 
requesting program device was not successful because there is an error in the 
ICF file. 


Action: End your program, correct the error, then have the remote program 
send the program start request again. 


Escape) 
Escape) 
Escape) 
Escape) 


( 
( 
( 
( 


Messages: 


CPF4324 (Escape) 
CPF5540 (Escape) 


Description: The open or acquire operation was not successful because your 
program tried to use a format selection option of *RMTFMT in the FMTSLT 
parameter on the ADDICFDEVE, CHGICFDEVE, or OVRICFDEVE command. 
The session was not started. 


Action: Change the value in the FMTSLT parameter on the ADDICFDEVE, 
CHGICFDEVE, or OVRICFDEVE command, then issue the open or acquire 
operation again. 


Messages: 
CPF4347 (Escape) 
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Major Code 83 


Major Code 83 — Session error occurred (the error is recoverable). 


Description: A session error occurred, but the session may still be active. Recovery 
within your program might be possible. 


Action: You can perform the following general actions for all 83xx return codes. Spe- 
cific actions are given in each minor code description. 


Correct the problem and continue processing with the session. If the error occurred 
because of a resource failure on the remote system or because the remote system 

was not active at the time, a second attempt may be successful. If the operation is 
still not successful, your program should end the session. 

Issue an end-of-session function and continue processing without the session. 

End. 


Several of the minor codes indicate that an error condition must be corrected by 
changing a value in the communications configuration or in the file. 


To change a parameter value in the communications configuration, vary the config- 
uration off, make the change to the configuration description, then vary the config- 

uration on. 

To change a parameter value in the file, use the ADDICFDEVE, CHGICFDEVE, or 
OVRICFDEVE command. 


Note: When a parameter can be specified both in the ADDICFDEVE or 
OVRICFDEVE command and in the configuration, the value in the 
ADDICFDEVE or OVRICFDEVE command overrides the value specified in 
the configuration (for your program only). Therefore, in some cases, you 
may choose to make a change with the ADDICFDEVE or OVRICFDEVE 
command rather than in the configuration. 


If no changes are needed in your file or in the configuration, and depending on what the 
return code description says, you should notify the remote location that a change is 
required at that location to correct the error received. 


Code 
830B 


831C 


Description/Action 


Description: Your program attempted an operation that was not valid because 
the session was not yet acquired or has ended. The session may have ended 
because of a release operation, an end-of-session function, or a permanent 
error. Your program may have incorrectly handled a previous error. 


Action: Verify that your program does not attempt any operations without an 
active session. Also verify that your program correctly handles the permanent 
error or session-not-acquired return codes (80xx, 81xx, 82xx) it received on 
previously issued input and output operations. To recover from an incorrectly 
handled error condition, your program may or may not be able to issue another 
acquire operation, depending on the return code. 


Messages: 


CPD4079 (Diagnostic) 
CPF4739 (Status) 
CPF5067 (Escape) 
CPF5068 (Escape) 
CPF5070 (Escape) 


Description: Your program's previous output operation received a return code 
of 0412, indicating that your program must receive information sent by the 
remote program or the PAD; however, your program did not handle the return 
code correctly. The current output operation was not successful because your 
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831E 


831F 


program should have issued an input operation to receive the information 
already sent by the remote program. 


Action: Issue an input operation to receive the previous information. 
Messages: 


CPF4934 (Notify) 
CPF5076 (Notify) 


Description: The operation attempted by your program was not valid, or a 
combination of operations that was not valid was specified. The session is still 
active. The error may have been caused by one of the following: 


e Your program issued an operation that is not recognizable or not supported 
by asynchronous communications. 

e Your program requested a combination of operations or keywords that was 
not valid, such as a combined write-then-read operation with the invite 
function specified. 

e Your program issued an input operation, or an output operation with the 
invite function, for a file that was opened for output only. 

e Your program issued an output operation for a file that was opened for 
input only. 

e Your program issued a close operation with a temporary close option. 


Action: Your program can try a different operation, issue a release operation 
or end-of-session function, or end. Correct the error in your program before 
trying to communicate with the remote program. 


If the file was opened for input only, do not issue any output operations; or, if 
the file was opened for output only, do not issue any input operations, and do 
not use the invite or allow-write function on an output operation. If such an 
operation is needed, then release the session, close the ICF file, and open the 
file again for input and output. 


Messages: 


CPF4564 
CPF4764 
CPF4766 
CPF4790 
CPF5132 
CPF5149 


Description: Your program specified data or a length for the operation that 
was not valid; however, the session is still active. One of the following caused 
the error indication: 


Escape) 
Notify) 
Notify) 
Notify) 
Escape) 
Escape) 


( 
( 
( 
( 
( 
( 


¢ On an output operation, your program tried to send a data record that was 
longer than the MAXRCDLEN value specified for the ICF file. 

e The program used a read or write operation that specified a data length 
greater than the record format in the ICF file. 

e lf this was a timer function, the format of the timer interval was not 
HHMMSS. 

e lf asystem-defined format was used to specify the operation, or if the 
variable-length-data-record (VARLEN) function was used, then the length 
of the user buffer was not valid. 


Action: If you want your program to recover, try the operation again with a 
smaller data length. If you do not need your program to recover immediately, 
do one of the following: 


e Change the record format length in the ICF file, or change the record 
length in your program and compile your program again. 


e For an input operation, specify a data length equal to or less than the 
record format length, or do not specify a length at all. 


Appendix B. Return Codes, Messages, and Sense Codes B-17 


e lf the timer function was used, verify that the format of the timer interval is 
HHMMSS. 


e For an output operation that used the variable-length-data-record 
(VARLEN) function, verify that the length specified is less than the record 
length specified for the ICF file when it was opened. 


Messages: 


CPF4762 (Notify) 
CPF4765 (Notify) 
CPF4767 (Notify) 


8329 Description: An evoke function that was not valid was detected in this 
session. Your program was started by a program start request and, therefore, 
cannot issue any evoke functions in this session. 


Action: To recover, your program can try a different operation or function. To 
issue an evoke function in a different session, first issue an acquire operation 
(using a different program device name), then try the evoke function. Other- 
wise, your program can issue an end-of-session function, continue local pro- 
cessing, or end. If a coding error caused your program to attempt an evoke 
that was not valid, correct your program. 


Messages: 
CPF5099 (Notify) 


832C Description: A release operation following an invite function was detected. 
Because your program issued the invite function, it cannot issue a release 
operation to end the invited session. 


Action: Issue an input operation to satisfy the invite function, or issue a 
cancel-invite function to cancel the invite function; then try the release operation 
again. Otherwise, issue an end-of-session function to end the session. If a 
coding error caused your program to attempt a release operation that was not 
valid, correct your program. 


Messages: 
CPF4769 (Notify) 


832D Description: Following an invite function, your program issued an additional 
invite function. This operation failed because the original invite function must 
first be satisfied by an input operation. 


Action: Issue an input operation to receive the data that was invited. Other- 
wise, issue an end-of-session function to end the session. If a coding error 
caused your program to attempt a request-to-write indication or an additional 
invite function, correct your program. 


Messages: 
CPF4924 (Notify) 


83E0 Description: Your program attempted an operation using a record format that 
was not defined for the ICF file. 


Action: Verify that the name of the record format in your program is correct, 
then check to see whether the record format is defined in the file definition. 


Messages: 
CPF5054 (Notify) 


83E8 Description: Your program attempted to issue a cancel-invite function to a 
session that was not invited. One of the following may have occurred: 


e The invite function was implicitly canceled earlier in your program by a 
valid output operation. 

e The invite function was satisfied earlier in your program by a valid input 
operation. 
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e Your program had already canceled the invite function, then tried to cancel 
it again. 
e Your program never invited the session. 


The session is still active. 


Action: Your program can issue an input or output operation, issue an end-of- 
session function, continue local processing, or end. However, you should 
correct the error that caused your program to attempt the cancel-invite to a 
session that was not invited. 


Messages: 
CPF4763 (Notify) 


83F8 Description: Your program attempted to issue an operation to a program 
device that is marked in error due to a previous I/O or acquire operation. Your 
program may have handled the error incorrectly. 


Action: Release the program device, correct the previous error, then acquire 
the program device again. 


Messages: 
CPF5293 (Escape) 


Failed Program Start Requests 


Message CPF1269 is sent to the system operator message queue when the local system 
rejects an incoming program start request. You can use the message information to deter- 
mine why the program start request was rejected. 


The CPF1269 message contains two reason codes. One of the reason codes can be zero, 
which can be ignored. If only one nonzero reason code is received, that reason code repre- 
sents the reason the program start request was rejected. If the System/36 environment is 
installed on your AS/400 system, there can be two nonzero reason codes. These two 
reason codes occur when OS/400 cannot determine whether the program start request was 
to start a job in the System/36 environment or in OS/400. One reason code explains why 
the program start request was rejected in the System/36 environment and the other explains 
why the program start request was rejected in OS/400. Whenever you receive two reason 
codes, you should determine which environment the job was to run in and correct the 
problem for that environment. 


Figure B-2 describes reason codes for failed program start requests. 


Figure B-2 (Page 1 of 3). Reason Codes for Rejected Program Start 


Requests 

Reason 

Code Reason Description 

401 Program start request received to a device that is not allocated to 
an active subsystem. 

402 Requested device is currently being held by a Hold Communica- 
tions Device (HLDCMNDEV) command. 

403 User profile is not accessible. 

404 Job description is not accessible. 

405 Output queue is not accessible. 

406 Maximum number of jobs defined by subsystem description are 
already active. 

407 Maximum number of jobs defined by communications entry are 
already active. 

408 Maximum number of jobs defined by routing entry are already 


active. 
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Figure B-2 (Page 2 of 3). Reason Codes for Rejected Program Start 


Requests 


Reason 
Code 


Reason Description 


409 
410 
411 
412 
501 
502 
503 
504 
505 
506 
507 
508 
602 
604 
605 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 


718 
722 
723 
725 
726 
801 
802 
803 
804 
805 


806 


807 


901 
902 


Library on library list is exclusively in use by another job. 
Group profile cannot be accessed. 

Insufficient storage in machine pool to start job. 
System values not accessible. 

Job description was not found. 

Output queue was not found. 

Class was not found. 

Library on initial library list was not found. 

Job description or job description library is damaged. 
Library on library list is destroyed. 

Duplicate libraries were found on library list. 
Storage-pool defined size is zero. 

Transaction program-name value is reserved but not supported. 
Matching routing entry was not found. 

Program was not found. 

Password is not valid. 

User is not authorized to device. 

User is not authorized to subsystem description. 
User is not authorized to job description. 

User is not authorized to output queue. 

User is not authorized to program. 

User is not authorized to class. 

User is not authorized to library on library list. 

User is not authorized to group profile. 

User ID is not valid. 

Default user profile is not valid. 


Neither password nor user ID was provided, and no default user 
profile was specified in the communications entry. 


No user ID. 

A user ID was received but no password was sent. 

No password was associated with the user ID. 

User ID does not follow naming convention. 

User profile has been disabled. 

Program initialization parameters are present but not allowed. 
Program initialization parameter exceeds 2000 bytes. 
Subsystem is ending. 

Prestart job is inactive or is ending. 


WAIT (NO) was specified on the prestart job entry and no prestart 
job was available. 


The maximum number of prestart jobs that can be active ona 
prestart job entry was exceeded. 


Prestart job ended when a program start request was being 
received. 


Program initialization parameters are not valid. 


Number of parameters for program not valid. 
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Figure B-2 (Page 3 of 3). Reason Codes for Rejected Program Start 


Requests 

Reason 

Code Reason Description 

903 Program initialization parameters required but not present. 

1001 System logic error. Function check or unexpected return code 
encountered. 

1002 System logic error. Function check or unexpected return code 
encountered while receiving program initialization parameters. 

1501 Character in procedure name not valid. 

1502 Procedure not found. 

1503 System/36 environment library not found. 

1504 Library QSSP not found. 

1505 File QS36PRC not found in library QSSP. 

1506 Procedure or library name is greater than 8 characters. 

1507 Current library not found. 

1508 Not authorized to current library. 

1509 Not authorized to QS36PRC in current library. 

1510 Not authorized to procedure in current library. 

1511 Not authorized to System/36 environment library. 

1512 Not authorized to file QS36PRC in System/36 environment 
library. 

1513 Not authorized to procedure in System/36 environment library. 

1514 Not authorized in library QSSP. 

1515 Not authorized to file QS36PRC in QSSP. 

1516 Not authorized to procedure in QS36PRC in QSSP. 

1517 Unexpected return code from System/36 environment support. 

1518 Problem phase program not found in QSSP. 

1519 Not authorized to problem phase program in QSSP. 

1520 Maximum number of target programs started (100 per System/36 


environment). 
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Appendix C. Code Conversion Tables 


The following tables show how asynchronous communica- 
tions support translates your program data. Tables included 
show: 


¢ The EBCDIC character set 

e¢ The ASCII (IA-5) character set 

¢ EBCDIC-to-ASCII translation table 
¢ ASCII-to-EBCDIC translation table 


You can also create your own translation table using the 
Create Table (CRTTBL) command. See the online informa- 
tion for a description of this command. A system-supplied 
program, QDCXLATE, can be used to translate individual 
fields, using any specified translation table. See the System 
API Reference book for more information about using 
QDCXLATE. 


If you do choose to create your own translation table, you 
must turn translation off by issuing a function-management- 
header function. Your application program is then respon- 
sible for translating all user data. See “Write Operation” on 
page 6-4 for more information about the function- 
management-header function. 


Code Page 037 (EBCDIC) USA/Canada 


The following example shows the characters for code page 
037. If other characters are shown on your display, refer to 
the National Language Support book and the International 
Application Development book for more information about 
code pages. 


Main Storage Bit Positions 0,1,2,3 
Main Storage 
Bit Positions 0000 | 0001] 0010 | 0011] 0100 | 0101 | 0110) 0111/1000 | 1001} 1010 | 1011] 1100) 1101/1110 | 1111 
45:67 luexlo/]/i1)/2/3/4]/5/6l/7/s8lo9|lalelc|ole le 
0000 o | NUL| DLE sP | & | - { | } oy 0 
0001 1 | SOH| DC1 / a j ~ A J 1 
0010 2 | STX | DC2 SYN b k s B K |S 2 
0011 3 | ETX | DC3 c | t Cc i faa 3 
0100 4 d m u D M |U 4 
0101 5 HT | NL LF e n Vv E N V 5 
0110 6 BS |ETB f fe) Ww F Oo |W 6 
0111 7 | DEL ESC | EOT g p Xx G P |X 7 
1000 8 CAN h q y H Q |Y 8 
1001 9 EM r z | R |Z 9 
1010 A ¢ | | 
1011 B IVT # 
1100 Cc |FF |FS pe4| < | * | % |] @ 
1101 D |CR |GS |ENQ|NAK] ( el 
1110 E |SO | RS |ACK + | > = 
1111 F /st | us |BEL|suB] | | 7 ? " 


This chart shows the characters for code page 037. 
Figure C-1. Code Page 037 (EBCDIC) USA/Canada 


© Copyright IBM Corp. 1997 


RV3S000-1 


C-1 


International Alphabet (IA-5) ASCII 
Character Set 


The following table shows the ASCII characters as defined 
by the international alphabet (IA-5) used by the integrated 
PAD support to determine data forwarding characters. 


Main Storage Bit Positions 0,1,2,3 


Fe emege — | 0000/ 0001/0010, 0014] 0100] o101| 0110| 0111] 1000 | 1001 1010 | 1011 1400] 4401 | 4140/1414 
aa Hex} o | 1 | 2/3 ]4/5 /)/6]7{/8/9]alBJ/clpof/eElrF 
0000 o | NUL} DLE} sP|o0 |B} ep |B |p 

0001 1 |soH}pc1}/! |1 |a | Q]a Jq 

0010 2 |stx|pcz2}" |2 |B | R |b |r 

0011 3 jeTx|pc3|/# i) 3 jc | 8 fe fs 

0100 4 | EOT pca | -UE 4 |p |T/a ft 

0101 5 |ENQ)NAK}% |5 |e | Use Ju 

0110 6 |ack)/syn} & |6 |e | v | t |v 

o1t4 7 | BEL| ETB 7 1e |wig lw 

1000 8 |Bs |cani( | 8 |H | x | h [x 

1001 9 |HtT }em]) |9 [4 y fli ly 

1010 A |LF |suB| * J z ii fz 

1011 B ivt jesc)+ |; |x |B@/« |B 

1100 C | FF | Is4 | , 2 bt 2 2 | 

1101 bp icrRiiss|- |- |m | @im/ G 

1110 E |so |1s2 > |n |@), |@ 

1111 F isi jist |/ |? /o o | DEL 


1 Multiple characters defined. 
BA No specific characters defined. 


This chart shows the characters in the International Alphabet (IA-5) 
ASCII character set. 


Figure C-2. International Alphabet (IA-5) ASCII Character Set 
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EBCDIC-to-ASCIl Translation Table lated to hex FF. 


The following table shows the hexadecimal values used 
when translating characters from EBCDIC to ASCII. 


For example, EBCDIC uses hex 82 to represent the letter b; 
the ASCII equivalent for the letter b, as shown in the table, is 
hex 62. Likewise, EBCDIC uses hex 2E to represent the 
ACK character; the ASCII equivalent is hex 06. 


Main Storage Bit Positions 0,1,2,3 
Fe emege | 0000/ 0001 0010 | 0014 |o100 | 0101 | 0110 | 0144 1000 |1001 1010 |1011 4100/1401 [4110 | 1441 
see Hex | 0 1 2) 3 4 5 6 7 8 9 A B C D E F 
0000 0 |00 | 10 20 | 26 | 20 78 | 7D | 5c | 30 
0001 1 for | 41 OF 61 | 6A | 7E 41 | 4A 31 
0010 2 |o2 | 12 16 62 | 6B | 73 42 | 48 | 53 | 32 
0011 3 |o3 | 13 63 | 6c | 74 43 | 4c | 54 | 33 
0100 4 64 | 6p | 75 44 | 4D | 55 | 34 
0101 5 |09 | 0A | 0A 65 | 6E | 76 45 | 4£ | 56 | 35 
0110 6 08 | 17 66 | 6F | 77 46 | 4F | 57 | 36 
o111 7 | 7F 1B | 04 67 | 70 | 78 47 | 50 | 58 | 37 
1000 8 18 68 | 71 | 79 4g | 51 | 59 | 38 
1001 9 19 6o | 69 | 72 | 7A 49 | 52 | 5A | 39 
1010 A 5B | 5D | 7c | 3a 
1011 B | 0B 2E | 24 | 2c | 23 
4100 é |0e | ic 14 | 3c | 2a | 25 | 40 
1101 dD |op | 1D |] 05 | 15 | 28 | 29 | 5F | 27 
1110 E |oE | iE | 06 23 | 3B | 3E | 3p 
1114 F |oF | 4F | 07 | 1A | 21 | 5E | 3F | 20 


This chart shows the characters in the EBCDIC-to-ASCII translation table. 
Figure C-3. EBCDIC-to-ASCII Translation Table 
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Blank squares in the table (for example, hex 8A) are trans- 
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ASCIl-to-EBCDIC Translation Table 


The following table shows the hexadecimal values used 
when translating characters from ASCII (using the IA-5 
alphabet) to EBCDIC. 


For example, ASCII uses hex 4E to represent the letter N; the 


EBCDIC equivalent for the letter N, as shown in the table, is 


hex D5. 


Main Storage Bit Positions 0,1,2,3 


cinco 0000 | 0001 |0010 | 0011 [0100 | 0101 |0110| 0111 |1000 | 1001 |1010 |1014 |1100 |1101 |1110 4441 

4567 lux o]i1fl2/]/3/4/s5sl6f/7/8f/e9laleleololJelr 
0000 0 | oo | 10 | 40 | Fo | 7c | D7 | 79 | 97 | 00 | 10 | 40 | Fo | 7c | D7 | 79 | 97 
0001 1 |o1 | 11 | 4F | F1 | c1 | Ds | 81 | 98 | 01 | 44 | 4F | F1 | ct | Da | 81 | 98 
0010 2 |02 | 12 | 7F | F2 | C2] D9 | 82/99 | 02 | 12 | 7F | F2/| C2 | D9 | 82 | 99 
0011 3 |03 | 13 | 7B | F3 | c3 | E2 | 83 | a2 | 03 | 13 | 7B] F3 | C3] E2 | 83 | A2 
0100 4 |37 | 3c | 5B | F4 | c4 | ES | 84] a3 | 37 | 3c | 5B] F4| C4] ES | 84 | AB 
0101 5 |2D | 3D| 6C |] F5 | C5 | E4| 85] A4 | 2D] 3p | 6C| F5| C5] E4 | 85 | a4 
0110 6 | 2E | 32 | 50 | Fe | ce | ES | 86 | a5 | 2E | 32 | 50 | Fe | Ce] ES | 86 | AS 
0114 7 |2F | 26 | 7D] F7 | C7 | E6 | 87 | AG | 2F | 26 | 7D| F7 | C7 | EB | 87 | AB 
1000 8 |16 | 18 | 4D | Fs | c8 | e7 | 88 | a7 | 16 | 18 | 4D] F8 | c8| E7 | gs | a7 
1001 9 |05 | 19 | 5D | F9 | co] E8 | 89] As | 05 | 19 | 5D| F9| CO] EB | 89] AB 
1010 A |15 | 3F | 5c | 7A | D1 | E9 | 91 | ag | 15 | 3F | 5C| 7A | D1 | EQ | 91 | AQ 
1011 B |0B | 27 | 4£ | 5E | D2 | 4A | 92 | co | 0B | 27 | 4E | 5E| D2 | 4a | 92 | co 
1100 c |oc | 1c | 6B | 4c | ps | Eo | 93 | 6A | 0c | 1c | 6B] 4c | D3 | EO | 93 | 6A 
1101 D |0D | 1D/ 60 | 7E | D4) 5A | 94] DO | OD | 1p | 60 | 7E| D4 | 5A | 94 | DO 
1110 E /oE | 1£ | 48) 6E | D5 | 5F | 95 | A1 | OE | ie | 4B] 6E| DS | 5F 95 | At 
1111 F |oF | 1F | 61 | 6F | D6 | 6D | 96 | 07 | OF | iF | 61 | 6F | DE) 6D | 96 | O7 


This chart shows the characters in the ASCII-to-EBCDIC translation table. 
Figure C-4. ASCII-to-EBCDIC Translation Table 


C-4 s/400 Asynchronous Communications Programming V4R1 


RSLS464-1 


Appendix D. Break and Interrupt Handling 


This appendix describes what actions and responses asyn- 
chronous communications support takes when your program 
issues a fail function or when a break signal, interrupt packet, 
or Indication of Break message is received from the 
remote device. The actions taken by asynchronous commu- 
nications support depend on whether: 


e The line being used is an asynchronous (start-stop) or 
X.25 line 


e¢ Your application program is a packet-mode host applica- 
tion 

e You configured PAD emulation 

e The remote device is attached to a PAD 


Note: Indication of Break messages are qualified X.25 
data packets. 


Fail Function 


The following lists the actions taken by asynchronous support 
when your application program issues a fail function. 


e If the application program uses an asynchronous (start- 
stop) line: 


The I/O adapter creates a break signal of at least 300 
milliseconds space-time duration. 


e If the application program uses an X.25 line with PAD 
emulation configured, and the value of the PAD param- 
eter 7 is: 


0 No action is taken. 


1 An X.25 interrupt packet is sent with user data of 
hex 01. 


2 Clear the virtual circuit. The PAD parameters are 
reset to the default values. 


8 Escape to command mode. 


21. = An X.25 interrupt packet is sent with user data of 
hex 00. PAD parameter 8 is set to a value of 1. 
An Indication of Break message is sent that 
also informs the packet-mode host that PAD 
parameter 8 has been set to a value of 1. 


e If the application program uses an X.25 line as a packet- 
mode host and the remote device is a: 


Packet-mode host 
An X.25 interrupt packet is sent with user 
data of hex 01. 
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PAD 
An Indication of Break message is sent. 


Receive Break or Interrupt Actions 


The following list shows the actions and responses that occur 
when asynchronous communications support receives a 
break signal, Indication of Break message, or interrupt 
packet from the remote device: 


e If the application program uses an asynchronous (start- 
stop) line, and a break signal is detected by the I/O 
adapter, your application program will receive a 0302 
return code. 


Note: A framing (stop bit) error on a null character is 
treated as a break signal and a 0302 return code is sent 
to the receiving program. 


e If the application program uses an X.25 line with PAD 
emulation configured, and asynchronous communica- 
tions support receives the following: 


Indication of Break message 
Your application program receives a 0302 
return code. 


Indication of Break message with data of hex 0801 
Your application program receives a 0302 
return code. PAD parameter 8 is set to a 
value of 0. 


X.25 interrupt packet 
No action is taken. 


e If the application program uses an X.25 line as a packet- 
mode host and asynchronous communications support 
receives the following: 


Indication of Break message 
Your application program receives a 0302 
return code. If the remote device is a PAD, 
a Set message is sent to set parameter 8 to 
a value of 0. 


X.25 interrupt packet with data of hex 00 
No action is taken. 


X.25 interrupt packet with data of hex 01 
Your application program receives a 0302 
return code. 
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Appendix E. Asynchronous Communications Configuration Examples 


This appendix contains asynchronous communications con- 
figuration examples for: 


e A nonswitched line (for use in connecting directly to an 
asynchronous device, such as a printer or plotter). 

¢ A switched line where the AS/400 system uses a 
command-capable modem, such as the IBM 5842, to 
connect to a remote device. 

e Asynchronous communications on an X.25 packet- 
switching data network (PSDN). 


Each example uses the command prompt displays shown by 
typing the name of the command on the command line, then 
pressing F4 (Prompt). 


Nonswitched Asynchronous 
Communications Example 


The following nonswitched configuration example is used to 
communicate with a directly attached asynchronous commu- 
nications device or a device connected through a modem 
eliminator. The line has the following characteristics: 


e Line speed of 9600 bits per second 


e Even parity 

e 1 stop bit 

¢ 7 data bits (ASCII) 

e Duplex (*FULL) 

e Device buffer size of 128 bytes 

e Device provides pacing by using flow control with the 
default XON/XOFF characters 

e Device ends each record sent to the AS/400 system with 
an ASCII carriage return followed by a line feed 


Because the device is not an AS/400 device, the file transfer 
acknowledgment timer and file transfer retry do not apply to 
the controller description, nor do the remote verification 
parameters of verify, local location name, and local identifier. 


AS/400 System 

Nonswitched 
DEVD CTLD |_| LIND | Vo ____| Asynchronous 
NSDEV NSCTL NSLIN Adapter ne Device 


This diagram shows 
an example of a nonswitched asynchronous communications 
line. 


Figure E-1. Nonswitched Asynchronous Communications Example 
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Nonswitched Asynchronous Line Description: 


Create Line 
Type choices, press Enter. 


Line description... ..... 
Resource name ......... 
Online at IPL . 2... 1.40. 
Physical interface. ...... 
Connection type ........ 
Switched network backup .... 
Data bits per character .... 
Type:-of parity gs. s. a> s He ae 
StOp: DILS- er a Se erdc ae Baie 
DUPI EX: ce eS oe ey a 
Echo support... a8 a es 
ENG SPOOd 5 ae! a else ge saree 
Modem type supported. ..... 
Maximum buffer size ...... 
Flow control... ....... 
XON character 20. 0b Ques 


F3=Exit F4=Prompt F5=Refresh 
F13=How to use this display 


Desc (Async) (CRTLINASC) 


> NSLIN Name 
> LINO31 Name 
*YES. *YES, «NO 
*RS232V24 *RS232V24 
SNONSWTPP *NONSWTPP, *SWTPP 
*NO *NO, *YES 
-T 8,7 
> *EVEN *NONE, *ODD, *EVEN 
1, 2 
*FULL *FULL, *HALF 
*NONE *NONE, *ALL, *CNTL 
> 9600 50, 75, 110, 150, 300, 600... 
*NORMAL *NORMAL, *V54, *IBMWRAP 
> 128 128-4096 
> *YES *NO, *YES 
Il Q1-FF 


More... 
F10=Additional parameters F12=Cancel 
F24=More keys 


; 


~ )f 


Create Line 
Type choices, press Enter. 


XOFF character’ .::5 2-2 4 see 

End-of-Record table: 
End-of-Record character . . 
Trailing characters ..... 


End-of-Record character . . 
Trailing characters ..... 
+ for more values 

Text ‘description’. ...... 


F3=Exit F4=Prompt F5=Refresh 
F13=How to use this display 


— 


Desc (Async) (CRTLINASC) 


1B 01-FF 

. 5 OA 00-FF 
om 0-4 

. 00 00-FF 
v 0-4 


> ‘Asynchronous line to fast device! 


Bottom 
F10=Additional parameters F12=Cancel 
F24=More keys 


es [ee 


iJ 


Figure E-2. Prompt Displays for Nonswitched Asynchronous Line 


Description 
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Nonswitched Asynchronous Controller 
Description: 


i Create Ctl Desc (Async) (CRTCTLASC) 


Type choices, press Enter. 


Controller description. .... > NSCTL Name 

Link type scene gs ae SS > * *ASYNC, *X25 

Onlinenat) IRE... areca os! YES *YES, *NO 

Switched connection ...... NO *NO, *YES 

Switched network backup .... *NO~ *NO, *YES 

Attached nonswitched line . . . > NSLIN Name 

Text ‘description’. ...... > TAsynchronous controller to fast device’ 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 


L 


Figure E-3. Prompt Display for Nonswitched Asynchronous Con- 
troller Description 


Nonswitched Asynchronous Device Description: 


i Create Device Desc (Async) (CRTDEVASC) 


Type choices, press Enter. 


Device description. ...... > NSDEV Name 

Remote location name. ..... > FASTDEV Name, *NONE 
Online at TPL) «ono. er ee lee oe *YES *YES, *NO 
Attached controller ...... > NSCTL Name 

Text ‘description’. ...... > "Fast asynchronous device' 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 


L 


Figure E-4. Prompt Display for Nonswitched Asynchronous Device 
Description 


Switched Asynchronous Communications 
Configuration Example 


The following switched configuration is used to communicate 
with another AS/400 system that is capable of receiving a 
call. The application program uses the file transfer subrou- 
tines, and the line has the following characteristics: 


e Line speed of 2400 bps 

e No parity 

e 1 stop bit 

¢ 8 data bits (EBCDIC) 

e Duplex (*FULL) 

e Device buffer size of 896 bytes (required for file transfer) 
e No flow control 

¢ No echo 


Asynchronous communications allows you to connect to the 
modem and to send dial commands without the data set 
ready (DSR) signal being active. This is called a deferred 


connection and is configured using the AUTODIAL(*YES) 
and DIALCMD(*OTHER) parameters on the line description. 
If you have the modem switches set to hold DSR active, you 
must provide a nonswitched line and controller configuration 
to communicate with the modem. 


A command-capable modem requires that you send a dial 
command to call the remote modem. This command must 
be provided by your program as data on the first write opera- 
tion. 


Because file transfer runs on this line, you need to provide a 
retry value and an acknowledgement timer value for file 
transfer. If your lines are noisy or if the network you are 
using is slow, you could choose to increase both values. 
The values shown cause file transfer to wait for a response 
from the remote system for up to 30 seconds before consid- 
ering the transmission unsuccessful. Each unsuccessful 
transmission is tried again a maximum of ten times. The 
value provided for parity, bits per character, flow control, and 
echo are also required for file transfer. 


AS/400 System 
Switched 
DEVD CTLD __| LIND VO Made Modem [==] AS/400 System 
SWDEV SWCTL SWLIN Adapter or System/36 
RV3S001-0 
This diagram shows an example of a switched asynchronous communications 
line. 
Figure E-5. Switched Asynchronous Communications Example 
Switched Asynchronous Line Description: i 
Create Ctl Desc (Async) (CRTCTLASC) 
a | Type choices, press Enter. 
Create Line Desc (Async) (CRTLINASC) Controller description. .... > SWCTL Name 
Link type: <<. cies a ee Ee ws > *ASYNC *ASYNC, *X25 
Type choices, press Enter. Online at IPL. 2. nw ee es FYES *YES, *NO 
Switched connection ...... > EYES *NO, *YES 
Line description. ....... > SWLIN Name Switched line list... 2... > SWLIN Name 
Resource name... . 1. eee > LIN@31 Name + for more values 
Online at IPL ......... > ¥NO *YES, *NO Initial connection. ...... *DIAl *DIAL, *ANS 
Physical interface. ...... *RS232V24 *RS232V24 Connection number»... 1... > 7555-1234! 
Connection type .......-. > ¥SUTPP *NONSWTPP, *SWTPP Text ‘description’. ...... > Switched controller for file transfer' 
Vary onwait.......... FNOWK *NOWAIT, 15-180 (1 second) 
Autocall unit: 2 66 ew 6 FNO *NO, *YES 
Data bits per character .... @ 8,7 
Type of parity. ........ NONE *NONE, *ODD, *EVEN 
SEGOPIBTESS oc5e Se ig. Reng: oF sada > 1,2 
Duplex 2 i kee oe ae FULL *FULL, *HALF 
Echo support. ......... *NONE *NONE, *ALL, *CNTL 
Line speed... 2. eee ee ee > 2400 50, 75, 110, 150, 300, 600... Bottom 
Modem type supported. ..... NORMAL *NORMAL, *V54, *IBMWRAP F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
Switched connection type... . > *DIAL *BOTH, *ANS, *DIAL F13=How to use this display F24=More keys 
Auboanswer ss os 6 28 6 ae & > *NO *YES, *NO 
More... 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
Figure E-7. Prompt Display for Switched Asynchronous Controller 


mane 
aa 


Create Line Desc (Async) (CRTLINASC) 


Type choices, press Enter. 


AUT ODIO ise a. oe eke ce Se Re ai er se > *YES *NO, *YES 
Dial command type ....... > *OTHER *NONE, *V25BIS, *OTHER 
Calling number... 2... 2. NONE 
Inactivity timer... .. 2... > FNOMAX *NOMAX, 150-4200 (0.1 sec) 
Maximum buffer size ...... BG 128-4096 
Flow: COntVOl. 5g. & eG ao we os FNO *NO, *YES 
End-of-Record table: 
End-of-Record character ...~ 00 Q0-FF 
Trailing characters ..... om 0-4 


+ for more values _ 


Data Set Ready drop timer .. . 3-60 (seconds) 


Autoanswer type ........ *DTR *DTR, *CDSTL 

Remote answer timer ...... 30, 35, 40, 45 (seconds)... 
Text ‘description’... .... > TSwitched asynchronous line for file transfe 
1 


Bottom 


F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 


F13=How to use this display F24=More keys 
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Figure E-6. Prompt Displays for Switched Asynchronous Line 
Description 


Switched Asynchronous Controller Description: 


Appendix E. Asynchronous Communications Configuration Examples 


Description 


Switched Asynchronous Device Description: 


[ Create Device Desc (Async) (CRTDEVASC) 
Type choices, press Enter. 
Device description. ...... > SWDEV Name 
Remote location ........ > ASYNDIAL Name, *NONE 
Online at IPL... 2... ea *YES *YES, *NO 
Attached controller ...... > SWCTL Name 
Text ‘description’. ...... > TAsynchronous device for file transfer! 
Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 


L 


Figure E-8. Prompt Display for Switched Asynchronous Device 
Description 
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Asynchronous/X.25 Network Examples 


Asynchronous communications can be run on a switched or 
nonswitched line to an X.25 packet-switching data network 
(PSDN). This is done by creating an X.25 line description 
and asynchronous controller and device descriptions. The 
following examples show how to configure these descriptions 
for running asynchronous communications over an X.25 
PSDN using : 


e¢ A permanent virtual circuit (PVC). 

e An incoming call on a switched virtual circuit (SVC), 
*SVCIN. 

e An incoming call on an SVC (*SVCIN) for generic asyn- 
chronous communications controllers and devices. 
Generic controllers are created to accept incoming calls 
from any network address whose local location name 
and local ID are defined in your asynchronous remote 
location configuration list. 

e Anincoming call on an SVC (*SVCIN) for generic asyn- 
chronous controllers. Generic controllers are created to 
accept incoming calls from any network address. 

e An outgoing call on an SVC (*SVCOUT). 

e An outgoing call on an SVC (*SVCOUT) for packet 
assembler/disassembler (PAD) emulation. 


Permanent Virtual Circuit (*PVC) 


This X.25 line description example supports one PVC and up 
to four SVC controllers. Asynchronous communications 
allows only one active session (device) for each controller. 
The controller and device descriptions attached to this line 
could be a combination of any of the communications types 
supported by X.25. 
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The following controller and device description examples 
show only asynchronous communications possibilities. 


An exchange identifier (EXCHID) is required in the X.25 line 
description although it is never used in establishing or con- 
firming an asynchronous communications connection. The 
EXCHID is used only by the SNA controller descriptions 
attached to the X.25 line. 


X.25 Line Description: 


[_ Create Line Desc (X.25) (CRTLINX25) 
Type choices, press Enter. 
Line description. ....... > X25LINE Name 


Resource name... .. 2... LINO31 Name 
Logical channel entries: 


v 


Logical channel identifier . . > 001 001-FFF 
Logical channel type... . . > *PVC, *SVCIN, *SVCBOTH... 
PVC controller... .. 2... Name 


+ for more values 
Local network address 
Connection initiation . 7 
Online at IPL ..... .  *YES 


40100030 


| 


*LOCAL, *REMOTE, *WAIT 


*YES, *NO 
Physical interface... .  ¥X21BISV24 *X21BISV24, *X21BISV35... 
Connection type ........ *NONSWTPP *NONSWTPP, *SWTPP 
Vary: On Walt eo ces pte te a cen *NOWAIT *NOWAIT, 15-180 (1 second) 
Line speed... 1... 2 ee ae 9600 600, 1200, 2400, 4800... 
Exchange identifier ...... *SYSGEN 05600000-O56FFFFF, *SYSGEN 
Extended network addressing .. NO *YES, *NO 


More... 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-9 (Part 1 of 3). Prompt Displays for X.25 Line 
Description 


[ | 
Specify More Values for Parameter LGLCHLE 
Type choices, press Enter. 


Logical channel entries: 


Logical channel identifier . . > 001 001-FFF 

Logical channel type. .... > PVC *PVC, *SVCIN, *SVCBOTH... 
PVC controller. ....... Name 

Logical channel identifier . . > 002 001-FFF 

Logical channel type. .... > *SVCBOTH *PVC, *SVCIN, *SVCBOTH... 
PVC controller... ..... Name 

Logical channel identifier . . > 003 001-FFF 

Logical channel type. .... > ¥SVCBOTH *PVC, *SVCIN, *SVCBOTH... 
PVC<controMler sos eo Name 

Logical channel identifier . . > 004 001-FFF 

Logical channel type. .... > *SVCBOTH *PVC, *SVCIN, *SVCBOTH... 
PVC controller... ..... Name 


More... 
F3=Exit F4=Prompt F5=Refresh F12=Cancel _F13=How to use this display 
F24=More keys 


ae i can 


— 
[_ Specify More Values for Parameter LGLCHLE 


Type choices, press Enter. 


Logical channel identifier . . > 005 001-FFF 

Logical channel type. .... > *SVCBOTH *PVC, *SVCIN, *SVCBOTH... 
PVC controller... ..... Name 

Logical channel identifier . . 001-FFF 

Logical channel type. .... *PVC, *SVCIN, *SVCBOTH... 
PVC controller. ....... Name 

Logical channel identifier . . 001-FFF 

Logical channel type. .... = 4 *PVC, *SVCIN, *SVCBOTH... 
PVC controller... ..... Name 

Logical channel identifier . . 001-FFF 

Logical channel type. .... *PVC, *SVCIN, *SVCBOTH... 


PVC controller. ....... Name 
More... 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


if: 
eee eae 


Create Line Desc (X.25) (CRTLINX25) 


Type choices, press Enter. 


Logical channel identifier . . > 005 001-FFF 

Logical channel type. .... > *SVCBOTH *PVC, *SVCIN, *SVCBOTH... 

PVC controllers 20. sa. 8 Name 

+ for more values 

Local network address ..... > 40100030 
Connection initiation ..... > *LOCAL *LOCAL, *REMOTE, *WAIT 
Online at IPL. costes Se oe *YES *YES, *NO 
Physical interface. ...... ¥X21BISV24 *X21BISV24, *X21BISV35... 
Connection type ........ *NONSWTPP *NONSWTPP, *SWTPP 
Vary onwait.......... *NOWA *NOWAIT, 15-180 (1 second) 
Line speed... 2... a ee ee 9600 600, 1200, 2400, 4800... 
Exchange identifier ...... *SYSGEN 05600000-O56FFFFF, *SYSGEN 
Extended network addressing . . =NO_ *YES, *NO 


More... 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-9 (Part 2 of 3). Prompt Displays for X.25 Line 
Description 


[ Create Line Desc (X.25) (CRTLINX25) 
Type choices, press Enter. 


Default packet size: 


Transmit value... ... ee 128 64, 128, 256, 512, 1024 
Receive value ........ *TRANSMIT *TRANSMIT, 64, 128, 256... 
Maximum packet size: 
Transmit value... ... *DFTPKTSIZE *DFTPKTSIZE, 64, 128, 256... 
Receive value... 2.2.2.2. *DFTPKTSIZE *DFTPKTSIZE, *TRANSMIT, 64... 
MOdUIUS: sot 2 ina e erties 8 8, 128 
Default window size: a 
Transmit value... ..... 2 1-15 
Receive value ........ STRANSMIT 1-15, *TRANSMIT 
Insert net address in packets . ¥*YES *YES, *NO 
Text 'description’....... > ™X.25 line at address 40100030' 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-9 (Part 3 of 3). Prompt Displays for X.25 Line 
Description 


Asynchronous Controller Description to PVC: 


[_ Create Ctl Desc (Async) (CRTCTLASC) 


Type choices, press Enter. 


Controller description. .... > PVCCTL Name 

Link: types oe ee as Se sc > *X25 *ASYNC, *X25 

Online at IPL... . 2. eae YES *YES, *NO 

Switched connection ...... NO *NO, *YES 

Attached nonswitched line . . . > X25CINE Name 

X.25 logical channel ID ... . > 00 001-FFF 

Text ‘description’. ...... > 7X.25 asynchronous controller to PVC' 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-10. Prompt Display for Asynchronous PVC Controller 


Asynchronous Device Description to PVC: 


[ Create Device Desc (Async) (CRTDEVASC) 


Type choices, press Enter. 


Device description. ...... > PVCDEV Name 

Remote location name. ..... > PVCLOC Name, *NONE 
Online:dt IPL. 2 ts oe os *YES *YES, *NO 

Attached controller ...... > PVCCTL Name 

Text ‘description’. ...... > ™X.25 asynchronous device to PVC! 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-11. Prompt Display for Asynchronous PVC Device 


Appendix E. Asynchronous Communications Configuration Examples 
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Incoming Call on a Switched Virtual Circuit 
(*SVCIN) 


This example should be used if you know the network 
address of the system that starts the call. This configuration 
is connected only to the address specified for the connection 
number (CNNNBR parameter). 


After creating the controller description, the name must be 
added to the switched controller list (SWTCTLLST) of the 
appropriate X.25 line description. To add the name to the 
switched controller list, type the following command: 


CHGLINX25 LIND(X25LINE) SWTCTLLST(SVCINCTL1) 


Asynchronous Controller Description: *SVCIN 
from a Specific Address: 


[ | 
Create Ctl Desc (Async) (CRTCTLASC) 


Type choices, press Enter. 


Controller description. .... > SVCINCTL1 Name 
Linky type! ws? gece sauces eg’ ate ter ce > *X25 *ASYNC, *X25 
Online at IPL... 1... ne > *NO *YES, *NO 
Switched connection ...... > *YES *NO, *YES 
Switched line list... .... > X25LINE Name 
+ for more values 
Initial connection. ...... > * *DIAL, *ANS 
Connection number .... 2... > WOT00055 
Text ‘description’. ...... > 7X25 async controller *SVCIN trom 40100055' 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 


¥ u 


Figure E-12. Prompt Display for Asynchronous Controller: *SVCIN 
from Address 40100055 


Asynchronous Device Description *SVCIN from a 
Specific Address: 
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i Create Device Desc (Async) (CRTDEVASC) 


Type choices, press Enter. 


Device description. ...... > SVCINDEV1 Name 

Remote location ........ > SVCI Name, *NONE 
Online at IPL»... ee eee > * *YES, *NO 
Attached controller ...... > SVCINCTLI Name 

Text ‘description’. ...... > ™.25 async device *SVCIN' 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-13. Prompt Display for Asynchronous Device: *SVCIN 
from Address 40100055 


Incoming Call on a Switched Virtual Circuit 
(*SVCIN) for Generic Controllers and 
Devices 


This example describes an incoming call on a switched 
virtual circuit (“SVCIN) for generic controllers and devices. 
These descriptions accept a call from any system on the 
network that satisfies the following conditions: 


e The local system controller description must specify 
INLCNN(*ANS) and CNNNBR(*ANY); no remote location 
name (RMTLOCNAME(*NONE)) is specified in the 
device description. 

e The remote or calling system must have configured 
RMTVFY(*YES) and have provided a local location 
name and local identifier (LCLLOCNAME and LCLID 
parameters) in the controller description. 

e The local system must enter the local location name and 
local identifier specified by the remote system in the 
asynchronous communications remote location list (using 
CRTCFGL TYPE(*ASYNCLOCE)). The local location 
name cannot currently be specified as a remote location 
name on an existing asynchronous device. 


Figure E-14 on page E-7 shows a configuration of this type. 
The remote system controller description has specified 
RMTVFY(*YES) and provided a local location name and local 
identifier. When the remote system calls the local system, 
the local system will check the asynchronous remote location 
list for the LCLLOCNAME and LCLID sent by the remote 
system. If these entries are included, the call is accepted 
and the local location name specified by the remote con- 
troller is used as the remote location name (RMTLOCNAME 
parameter) for the generic device description. 


Local AS/400 System 


Remote AS/400 System 


CRTLINX25 LIND(X25LINE) ... X.25 Network 


CRTCTLASC CTLD(SVCINCTL2) 
SWTLINLST (X25LINE) 
INLCNN(*ANS) 
CNNNBR(*ANY) 


CRTLINX25 LIND(LINX25 


CRTCTLASC CTLD(NORTHCTL) 
SWTLINLST (LINX25) 
INLCNN(*DIAL 
CNNNBR(40100100) 
RMTVEY (YES 


~~ 


LCLLOCNAME ( FARNORTH) 


CRTDEVASC DEVD(SVCINDEV2) 
RMTLOCNAME (*NONE) 
CTL(SVCINCTL2) 


LCLID(NORTHID) 


CRTDEVASC DEVD(NORTHDEV) 
RMTLOCNAME (NORTH) 
CTL(NORTHCTL) 


CRTICFGL TYPE(*ASYNCLOCE) 


FARNORTH < 
NORTHID < 


remote location name 
remote location ID 


Figure E-14. Using a Generic Device Description with Asynchronous Remote Location Entries 


“Outgoing Call on a Switched Virtual Circuit ("“SVCOUT)” on 
page E-8 shows an example of an SVC configured like that 
of the remote system in Figure E-14. 


After creating the controller description, the name must be 
added to the switched controller list (SWTCTLLST) of the 
appropriate X.25 line description. To add the name to the 
switched controller list, type the following command: 


CHGLINX25 LIND(X25LINE) SWTCTLLST(SVCINCTL2) 


Asynchronous Controller Description: *SVCIN 
from Any Address: 


i | 

Create Ctl Desc (Async) (CRTCTLASC) 
Type choices, press Enter. 
Controller description Name 
Link type... 2... *ASYNC, #X25 
Online at IPL ..... *YES, *NO 
Switched connection .. fs *NO, *YES 
Switched line list... . 2... Name 

+ for more values 
Initial connection. ...... > FANS *DIAL, *ANS 
Connection number ...... > *ANY 
Text ‘description’ ....... > TX.25 async controller trom any network addr 
ess! 
Bottom 

F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-15. Prompt Display for Asynchronous Controller: *SVCIN 
from Any Network Address. Display shows a generic controller 
description (CNNNBR(*ANY)) used with generic device description 
(RMTLOCNAME(*NONE)) shown in Figure E-16. 


Asynchronous Device Description: *SVCIN from 
Any Address: 
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[_ Create Device Desc (Async) (CRTDEVASC) 


Type choices, press Enter. 


Device description. ...... > SVCINDEV2 Name 

Remote location ........ > *NONE Name, *NONE 

Online at IPL»... ee eae > ¥N0 *YES, *NO 

Attached controller ...... > SVCINCTL2 Name 

Text ‘description’. ...... > ™X.25 async device *SVCIN from any network a 


ddress! 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 
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Figure E-16. Prompt Display for Asynchronous Device: *SVCIN 
from Any Network Address. Display shows a generic device 
description (RMTLOCNAME(*NONE)) used with generic controller 
description (CNNNBR(*ANY)) shown in Figure E-15. 


Incoming Call on a Switched Virtual Circuit 
(*SVCIN) for Generic Controllers 


This example describes an incoming call on a switched 
virtual circuit (“SVCIN) for generic controllers. These 
descriptions accept a call from any system on the network. 


After creating the controller description, the name must be 
added to the switched controller list (SWTCTLLST) of the 
appropriate X.25 line description. To add the name to the 
switched controller list, type the following command: 


CHGLINX25 LIND(X25LINE) SWTCTLLST(SVCINCTL3) 


Asynchronous Controller Description: *SVCIN 
from Any Address: 


E-7 


1 1  * 
et Asynchronous Controller Description: *SVCOUT to 
Create Ctl Desc (Async) (CRTCTLASC) | a Specific Address: 
Type choices, press Enter. 
Controller description... . . > SVCINCTL3 Name 
Link type 2... 2.0 . =. > X25 *ASYNC, *X25 (a 
Online at IPL - . > NO *YES, *NO Create Ctl Desc (Async) (CRTCTLASC) 
Switched connection ...... > *YES *NO, *YES 
Switched line list... .... > X25LINE Name Type choices, press Enter. 
+ for more values 
Initial connection. ...... > *ANS *DIAL, *ANS Controller description Name 
Connection number ....... > *ANY LINK CPO fe ene sae ease SS X25. *ASYNC, *X25 
Texts ‘description: ia. soe cs > ™X.25 async ctl *SVCIN from any network addr Online at IPL .... *YES, *NO 
ess! Switched connection seek *NO, *YES 
Switched line list... . 1... Name 
+ for more values 
Initial connection. ...... *DIAl *DIAL, *ANS 
Connection number .... 1... > 40100100 
Text ‘description’. ...... > ™X.25 async ctl *SVCOUI to 40100100' 
Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel Additional Parameters 
F13=How to use this display F24=More keys 
Attached devices Name 
Predial delay ... * 0-254 (0.5 seconds) 
kts Redial delay. ......... 0-254 (0.5 seconds) 
More... 
5 : F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
Figure E-17. Prompt Display for Asynchronous Controller: *SVCIN F24=More keys 


from Any Network Address. Display shows a generic controller 
description (CNNNBR(*ANY)) used with the device description 
shown in Figure E-18. 


— — 


Create Ctl Desc (Async) (CRTCTLASC) 


. sags = ge ‘ 
Asynchronous Device Description: *SVCIN from Typesehal cess: press Entel 
5 Dial Petry 6 o-toe HS Seek S 2 0-254 
Any Address: Switched disconnect... 1. 0 *NO, *YES 
File transfer ack timer .... TO 16-65535 seconds 
File transfer retry 7 1-255 
Remote verify ... . > *YES *NO, *YES 
fos Local location... > FARNORTH Name 
‘il Local identifier . . « « « > NORTHID Name 
Create Device Desc (Async) (CRTDEVASC) PAD Emulation ......... *NO *NO, *YES 
X.25 switched line selection . .  *FIRST *FIRST, *CALC 
Type choices, press Enter. X.25 default packet size: 
Transmit value *LIND, 64, 128, 256, 512... 


Device description > SVCINDEV3 Name Receive value *LIND, *TRANSMIT, 64, 128... 


Remote location ae > SVC3 Name, *NONE X.25 default window size: 

Online at IPL ..... > *NO *YES, *NO Transmit value... . ». .  *LIND 1-15, *LIND 

Attached controller . . > SVCINCTL3 Name Receive value ........ =LIND 1-15, *LIND, *TRANSMIT 

Text ‘description! > X.25 async device *SVCIN from any network a X.25 user group identifier... 7 00-99 

ddress' More... 


F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


Figure E-19. Prompt Displays for Asynchronous Controller: 
*SVCOUT to Address 40100100 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 


Asynchronous Device Description: *SVCOUT to a 
4 Specific Address: 


— 


Figure E-18. Prompt Display for Asynchronous Device: *SVCIN 
from Any Network Address i 


Create Device Desc (Async) (CRTDEVASC) 


Type choices, press Enter. 


Outgoing Call on a Switched Virtual Circuit ila deuerigtiin 


Remote location 


(*SVCOUT) Online at IPL... 


Attached controller . 
Text ‘description’ .. 


> SVCOUTDEV Name 
. > WO Name, *NONE 
. 2 > FN *YES, *NO 
3 . > SVCOUTCTL Name 
. . > ™.25 async device *SVCOUT' 


This example describes an outgoing switched virtual circuit 
using remote verification (RMTVFY(*YES)) and specifying a 
local location name and local identifier to connect to a 
generic controller and device at the remote system. The 
local location name and the local identifier specified for the 


controller description must also be specified in the asynchro- FScEuit_FAcPromt | FSsRefresh FlO-kdditionalparanters Fiascancel 

nous remote location list ("ASYNCLOCE list when using nf, : 

CRTCFGL) at the remote system. L 

This configuration is similar to that of the remote system Figure E-20. Prompt Display for Asynchronous Device: *“SVCOUT 


described in Figure E-14 on page E-7. lo nagiese so L0100 
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Outgoing Call on a Switched Virtual Circuit 
(*SVCOUT) for PAD Emulation 


This example describes how to configure packet 
assembler/disassembler (PAD) emulation. PAD emulation 
support allows an AS/400 application program to communi- 
cate with host support that requires the PAD function to be 
performed. 


For a more detailed discussion of the PAD support provided, 
refer to the Asynchronous Communications Programming 
book. 


Asynchronous Controller Description: *SVCOUT to 
PAD: 


[ | 
Create Ctl Desc (Async) (CRTCTLASC) 


Type choices, press Enter. 


Controller description. .... > SVCPADCTL Name 
EMORY PO: tec So Bae fe seceskeds Ais > *X25 *ASYNC, *X25 
Online at IPL. <s-s.0 wae 3 > *NO *YES, *NO 
Switched connection ...... > *YES *NO, *YES 
Switched line list... .... > X25LINE Name 
+ for more values 
Initial connection... . 3 *DIAL *DIAL, *ANS 
Connection number ... . 
Text ‘description' > TX.25 async ctl *SVC to PAD 
Additional Parameters 
Attached devices Name 
Predial delay ...... shee 340 0-254 (0.5 seconds) 
Redial delay. ...... .. 120 0-254 (0.5 seconds) 


More... 
F3=Exit F4=Prompt F5=Refresh F12=Cancel =F 13=How to use this display 
F24=More keys 
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Figure E-21. Prompt Displays for Asynchronous Controller: 
*SVCOUT to PAD 


fi | 
Create Ctl Desc (Async) (CRTCTLASC) 


Type choices, press Enter. 


Dial Vetry 6d 2c goat wok eras 2 0-254 

Switched disconnect ...... *NO *NO, *YES 

File transfer ack timer .... TO _ 16-65535 seconds 

File transfer retry ... ¥ 1-255 

Remote verify *NO, *YES 

Local location Name 

Local identifie Name 

PAD Emulation * *NO, *YES 

X.25 switched line selection . . *FIRST *FIRST, *CALC 

X.25 default packet size: 
Transmit value... .. 2. *LIND *LIND, 64, 128, 256, 512... 
Receive value ........ *LIND *LIND, *TRANSMIT, 64, 128... 


X.25 default window size: 


Transmit value *LIND 1-15, *LIND 
Receive value . .  *LIND 1-15, *LIND, *TRANSMIT 
X.25 user group identifier... 00-99 


More... 
F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display 
F24=More keys 


Asynchronous Device Description: *SVCOUT to 
PAD: 


[_ Create Device Desc (Async) (CRTDEVASC) 
Type choices, press Enter. 


Device description 
Remote location ........ > 
Online at IPL .... 
Attached controller . 
Text 'description' 


> SVCPADDEV Name 

PAD Name, *NONE 
. 2 > NC *YES, *NO 

. > SVCPADCTL Name 
> ™X.25 async device *SVCOUT to PAD! 


Bottom 
F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel 
F13=How to use this display F24=More keys 


L 


Figure E-22. Prompt Display for Asynchronous Device: *SVCOUT 
to PAD 
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Appendix F. Program Examples 


This appendix contains program examples written in 
COBOL/400*, ILE C/400, and RPG/400* languages. Each 
language is represented by two sample programs (a source 
and a target program) that demonstrate passing data using 
asynchronous communications support. A sample program 
in FORTRAN/400 is provided in the ICF Programming book. 


Not all programming considerations or techniques are illus- 
trated in these examples. You should review the examples 
before you begin application design and coding. 


COBOL/400 Program Examples 


The COBOL/400 source program starts a session with a 
remote location and issues an evoke function, with no invite, 
to start the target program. The source program sends an 
item number to the target program and then waits 30 
seconds (specified using the DDS TIMER keyword) to 
receive a response from the target program indicating the 
evoke function completed successfully. If the source 
program receives a major return code equal to or greater 
than 03, the program goes to end of job. 


In the following sample programs, the source program sends 
an item number to the target program requesting item infor- 
mation, then waits 30 seconds. The target program then 
sends the item information (description) to the source 
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program. The source program sends the value 99999 to the 
target program, to indicate end-of-transaction. At this point, 
both programs go to end-of-job. 


If the source program does not receive a response from the 
target program within 30 seconds of sending a request, the 
source program issues a time-out message and goes to end- 
of-job. 


COBOL/400 Program Descriptions 


The following information describes the structure of the 
sample programs shown in Figure F-3 on page F-4 and 
Figure F-5 on page F-11. The reference numbers in the 
figures correspond to those in the descriptions. 


COBOL/400 Source Program: The following describes 
the COBOL/400 inquiry program that runs on the local 
system. 


Program Files: The COBOL/400 inquiry program uses the 
following files: 


ASYNFILS The ICF file used to send records to and receive 
responses from the target program. 


DSPFIL The display device file used to request part 


number entry at the display station. 


DDS Source: The DDS for the ICF file (ASYNFILS) is 
shown in Figure F-1; the DDS for the display device file 
(DSPFILE) is shown in Figure F-2. 


SEQNBR: , % acu ca desea Pun ca lee estes ea Sen deta d Ao cate eS eee ote ed Ooseetoreelionceteeced. Date 


100 A 

200 A INDARA 

300 A 

400 A R STRTIM 

500 A TIMER (000030) 

600 A 

700 A R PGMSTR 

800 A EVOKE (&LIB/&PGMID) 

900 A SECURITY(2 'ASYNCPWD' 3 'ASYNCUSR') 
1000 A PGMID 10A_ P 

1100 A LIB 10A P 

1200 A® * * kk Kk KK KK KK KK KK KK KK KK KK KK KK KK KKK 
1300 Ax 

1400 Ax »* Depending on the security level of the Target Source, * 
1500 Ax a user profile of "ASYNCUSR" having a password of * 
1600 Ax "ASYNCPWD" may be required on the Target System. * 
1700 Ax * 
1800 Ax * User, "ASYNCUSR", must have authority to the device * 
1900 Ax object (device description) being used on the Target * 
2000 Ax System. * 
2100 Ax * 
2200 Ak * * & & Kk KK KK KK KK KK KK KK KK KK KK KK KK KKK 
2300 A 

2400 A R ITEMRQ 

2500 A INVITE 

2600 A PARTNM 5A 

2700 A 

2800 A R JOBEND 

2900 A EQJIND 5A 

3000 A 

3100 A R INVIT 

3200 A INVITE 

3300 A 

3400 A R ITEMDS 

3500 A PARTDS 25A 

3600 A 

3700 A R ERRDES 

3800 A ERRORD 40A 

3900 A 

4000 A R PGMERR 

4100 A INVITE 

4200 A FAIL 


eee e* END OF SOURCE ****% 
Figure F-1. DDS Source for ICF File ASYNFILS, COBOL Source and Target Programs 


100 A DSPSIZ(24 80 *DS3) 
200 A INDARA 

300 A CF03(99) 

400 A R PROMPT 

500 A 5 10'Part Number: ' 

600 A PARTN 5A I 5 25 

700 A 10 10'Part Description: ' 
800 A PARTD 25A 0 10 30 

900 A ERRORL 40A 0 12 10DSPATR(HI) 

1000 A 23 5'F3 = Exit' 


eee e* END OF SOURCE ** **& 
Figure F-2. DDS Source for Display Device File, COBOL Source Program 


ICF File Creation and Program Device Entry Definition: ADDICFDEVE FILE(ASYNLIBCBL/ASYNFILS) 
The following command is used to create the ICF file. Note PGMDEV (ICFO0) 

that the same ICF file is used for both the source and target RMT LOCNAME (CHICAGO) 
programs. 


The following two commands can also be used. 
CRTICFF FILE(ASYNLIBCBL/ASYNFILS) 


SRCFILE(ASYNLIBCBL/QDDSSRC) OVRICFDEVE PGMDEV ( ICFQQ) RMTLOCNAME (CHICAGO) 
SRCMBR(ASYNFIL) MAXPGMDEV (2) OVRICFF = FILE(ASYNFTLS) 
WAITRCD (30) TOFILE(ASYNLIBCBL/ASYNFILS) 


Display Device File Creation: The following command is 


The following command is used to define the program device ‘ re Oh 
used to create the display device file: 


entry. 
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CRTDSPF FILE (ASYNLIBCBL/DSPFIL) 
SRCFILE (ASYNLIBCBL/QDDSSRC) 
SRCMBR(DSPFILE) 


Program Explanation: The following describes the struc- 
ture of the program example illustrated in Figure F-3 on 
page F-4. 


Ey The files used in the program are described in the file 
control section. ASYNFILS is the ICF file used to send 
records to and receive records from the target system. 


DSPFIL is the name of the display device file used to 
request an entry from the work station and to display 
the results of the inquiry. 


Note that ICF files are defined to COBOL/400 as work 
station files. 


Zs This section of the program redefines the feedback 
areas for use within the program. See the /CF Pro- 
gramming book for a description of the I/O feedback 
areas. 


The ICF file (ASYNFILS) and the display device file 
(DSPFIL) are opened. The program device named 
ICFOO is acquired by the program. This program 
device was previously added to the ICF file 
(ASYNFILS) by the ADDICFDEVE command. 


Once the program device is acquired, routine 
EVOKE-ROUTINE ( ) is called to build the evoke 
request to be sent to the remote system. Because the 
DDS for the record format only specifies the field iden- 
tifiers with the record, the program moves the literal 
value ASYNTINQ to field PGMID, the value 
ASYNLIBCBL to field LIB, and the value ICFO0 to the 
field PGM-DEV-NME. The write operation is then 
issued using record format PGMSTR, which has the 
evoke function specified in the DDS. 


When the program start request is received at the 
target AS/400 system, ASYNLIBCBL is searched for 
program ASYNTINQ and that program is then started. 
The target program for this example is shown in 
Figure F-5 on page F-11. 


3s The program builds the first prompt display to request 
the entry of a part number and to read the part 
number. 


Routine DISPLAY-PROC ([f) is called to send the 
results of the read from the display station to the 
remote program. 


If F3 was pressed while the prompt was displayed, pro- 
cessing goes to the end-of-job routine, END-JOB ( j). 


This part of the program does the end-of-job pro- 
cessing. Control passes here whenever the program is 
going to end normally. The program ends when the 
operator presses F3 while the part number prompt is 
displayed. 


It first calls DETACH-ROUTINE ( [E]) to end the trans- 
action. The files used by the program are then implic- 
itly closed and the program ends. 


This routine (DISPLAY-PROC) is called from [J to 
build the record to send to the target AS/400 system. 
If F3 is pressed while the prompt is displayed, control 
passes to J. 


Routine is called to build the record and send it to 
the target system. Control then returns here. The 
results are displayed and input is again requested. 


This routine (REMOTE-PROC) builds and sends the 
item request record to the target system. It sends the 
request using format ITEMRQ. When the operation 
completes, the routine checks for a successful return 
code (00 major code, as defined in [); if successful, 
the item description (ITEMDS) is read from the 
program device ICFOO and then moved to the part 
description field (PARTD) for the display device 
(DSPFIL). Control then returns to j. 


If the target system returned a fail (return code 0302), 
the error description is read from ICFOO and moved to 
the display device error field (ERRORL). Control then 
returns to J. 


If any other return code is received, the program goes 
to end of job ( fj). 


This routine (EVOKE-ROUTINE) is called from to 
build and send the program start request to the remote 
program. Record format PGMSTR is used to issue the 
evoke function. 

This routine (DETACH-ROUTINE) is called from [Ej to 
end the transaction by issuing a write operation using 
format PGMEND. 

If an exception occurs, routine ASYNFILS-EXCEPTION 
is automatically called to check the return code on all 
operations to ASYNFILS. If the major code is other 
than a 00 or 03, it ends the program. 
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Program . 2... 1... ee ee ee © ~~) ASYNSINQ 
LADY Ery< 4S es ey fete NE ASYNLIBCBL 
Source file ........4.. +... :  QCBLSRC 
LiDPary:. o2b eta dk ae he 4 Oe a ASYNLIBCBL 
Source member .......... =. 3  ASYNSINQ 12/19/90 11:14:31 
Generation severity level .....: 29 
Text ‘description’ ........ .: Source System's asynchronous COBOL program example 
Source listing options. ...... :  ¥*NONE 
Generation options. ........ :  *NONE 
PRUNE ETD: 6 ae oe 4 ee ee ee OOSYSPRT 
LA DRARY 6 Ee Beles hens oe ee *LIBL 
FIPS flagging .......... . :  *NOFIPS *NOSEG *NODEB *NOOBSOLETE 
SAA flagging... ......... 3:  *NOFLAG 
Flagging severity .........: 0 
Replace program .......... 3: ¥*YES 
Target release... ....... . 3)  *CURRENT 
User protilé « 2 awe ws ae wee a oe EF ORUSER 
Authority: o- 4-44.44 4a ese eet. OFLIBCRTAUT. 
Compiler... ....... 4.2... 3: IBM AS/400 COBOL/400 
5738CB1 V2RIMO 910524 AS/400 COBOL/400 Source ASYNLIBCBL/ASYNSINQ = RCH38321 


12/19/90 11:26:45 


12/19/90 11:26:45 


STMT SEQNBR -A 1 Be.te ec c2e cc ete ee ede c ete ecb cc ete ce Dec ete ee Bee eete eee 7. IDENTFON S COPYNAME CHG DATE 


1 000100 IDENTIFICATION DIVISION. 
000200 

2 000300 PROGRAM-ID. ASYNSINQ. 
000400 
COO 5 OO 4 2 He HH KI IK RAK KKK II KK KK IKK IK II TORK II IRR RR IIT RR II IRR IR II TOK. 
000600* THIS PROGRAM STARTS A PROGRAM CALLED 'ASYNTINQ' A TARGET 
000700* SYSTEM. IT THEN BRINGS UP A DISPLAY WHICH PROMPTS THE USER 
000800* FOR A PART NUMBER. THE PART NUMBER IS PASSED ON PROGRAM 
000900* DEVICE 'ICFOO' TO 'ASYNTINQ'. IF THE PART IS FOUND IN THE 
001000* DATABASE OF 'ASYNTINQ', THE 'WRITE' IS CONFIRMED, AND THE 
001100* DESCRIPTION OF THE PART IS SENT BACK. IF THE PART IS NOT 
001200* FOUND OR THE PART NUMBER IS INVALID, A 'FAIL' IS RETURNED 
001300* IN RESPONSE TO THE WRITE ALONG WITH ERROR MESSAGE TEXT. 
001400* EITHER THE PART DESCRIPTION (IF THE PART WAS FOUND) OR THE 
001500* ERROR MESSAGE TEXT (IF THE PART WAS NOT FOUND) IS DISPLAYED 
001600* TO THE USER. THE USER MAY THEN ENTER A NEW PART NUMBER OR 
001700* END THE PROGRAM. THE PROGRAM IS ENDED BY F3. 


QO 1800 4 HH KK RAK KK KK II IK KIRK KK II TOR KI IRR KK II TR RII IRR RI ITOK. 


ei a i 


001900 
3 002000 ENVIRONMENT DIVISION. 
002100 
4 02200 CONFIGURATION SECTION. 
002300 
5 002400 SOURCE-COMPUTER. IBM-AS400. 
6 002500 OBJECT-COMPUTER. IBM-AS400. 
7 002600 SPECIAL-NAMES. I-O-FEEDBACK IS I0-FEEDBACK 
8 002700 OPEN-FEEDBACK IS OPEN-FBA. 
002800 
9 002900 INPUT-OUTPUT SECTION. 
003000 
@ 003100 FILE-CONTROL. 
003200 
1 003300 SELECT ASYNFILS ASSIGN TO WORKSTATION-ASYNFILS 
2 003400 ORGANIZATION IS TRANSACTION 
3 003500 CONTROL-AREA IS TR-CTL-AREA 
4 003600 FILE STATUS IS STATUS-IND MAJ-MIN. 
5 003700 SELECT DSPFIL ASSIGN TO WORKSTATION-DSPFIL 
6 003800 ORGANIZATION IS TRANSACTION 
7 003900 CONTROL-AREA IS DISPLAY-FEEDBACK 
8 004000 FILE STATUS IS STATUS-DSP. 
004100 
9 004200 DATA DIVISION. 
004300 
20 004400 FILE SECTION. 
004500 


Figure F-3 (Part 1 of 6). COBOL/400 Inquiry Example — Source Program 
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Page 


Page 


1 


2 


OO4OOO kaa aKa K KARR RK 
004700* FILE DESCRIPTI 
OO48OO kaa a KARR K 
004900 

005000 FD ASYNFILS 
005100 LABEL RECOR 
005200 01 ASYNREC. 
005300 COPY DDS-AL 
+000001 05 ASYNF 
+000002* I-0 FORMAT: 
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33 
34 


35 
36 


+000003* 
+000004* 05 STRTI 
+000005* INPUT FORMAT: 
+000006* 
+000007* 05 PGMST 
+000008* OUTPUT FORMAT: 
+000009* 
+000010 05 PGMST 
+000011 06 PGI 
+000012 06 LI 
+000013* 1-0 FORMAT: 
+000014* 
+000015 05 ITEMR 
+000016 06 PA 
+000017* 1-0 FORMAT: 
+000018* 
+000019 05 JOBEN 
+000020 06 £0 
+000021* 1-0 FORMAT: 
+000022* 
+000023* 05 INVIT 
+000024x 1-0 FORMAT: 
+000025* 
+000026 05 ITEMD 
+000027 06 PA 
+000028* 1-0 FORMAT: 
+000029% 
+000030 05 ERRDE 
+000031 06 ER 
+000032* 1-0 FORMAT: 
+000033* 
+000034* 05 PGMER 
005400 


OO55OO KKK KKK KKK KKK 


RIKI KK IKK IIR KK IKK IKK I IK KK IKK IO IK I IO II IK I IK IE 


ON FOR THE ICF FILE FOR THIS PROGRAM. * 
HAIR KI KKK IK KK IKK IK KK I IK KK IKK IIR IIR I A IK IK IE 
DS ARE STANDARD. 


L-FORMATS-I-0 OF ASYNFILS. 
ILS-RECORD PIC X(40). 


STRTIM FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
AS/400 COBOL/400 Source ASYNLIBCBL/ASYNSINQ 

STMT SEQNBR -A 1 Bi.tic..2eccctese Seceeteee Sec ceteee sec cate ce sOeceetee se 7s IDENTFCN 
M REDEFINES ASYNFILS-RECORD. 
PGMSTR FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
R-I REDEFINES ASYNFILS-RECORD. 
PGMSTR FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
R-0 REDEFINES ASYNFILS-RECORD. 
MID PIC X(10). 
B PIC X(10). 
ITEMRQ FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
Q REDEFINES ASYNFILS-RECORD. 
RTNM PIC X(5). 
JOBEND FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
D REDEFINES ASYNFILS-RECORD. 
JIND PIC X(5). 
INVIT FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 

REDEFINES ASYNFILS-RECORD. 

ITEMDS FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
S REDEFINES ASYNFILS-RECORD. 
RTDS PIC X(25). 
ERRDES FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
S REDEFINES ASYNFILS-RECORD. 
RORD PIC X(40). 
PGMERR FROM FILE ASYNFILS OF LIBRARY ASYNLIBCBL 
R REDEFINES ASYNFILS-RECORD. 
KKKEKKEKEKEKKRKEKEKE REE KRKE KEKE REE KEREKERREKEERERKERKKERK 
ON FOR THE DISPLAY FILE FOR THIS PROGRAM. * 


Bp 
ao 


~~ 


7 


5 


8 


005600* FILE DESCRIPTI 


OOS 7 OOK KKK KKK KKKKKKKEK 


005800 
005900 FD DSPFIL 
006000 LABEL RECOR 


006100 01 DSPREC. 
006200 COPY DDS-AL 


+000001 05 DSPFI 
+000002* INPUT FORMAT: 
+000003* 
+000004 05 PROMP 
+000005 06 PA 
+000006* OUTPUT FORMAT: 
+000007* 
+000008 05 PROMP 
+000009 06 PA 
+000010 06 ER 
006300 
006400 WORKING-STORAGE 
006500 


006600 77 STATUS-IND 


KKK IKK IKK KI IK IK IKK IK KK IK KK IKK II IK IIR I AIK II IK IE 


DS ARE STANDARD. 


L-FORMATS-I-0 OF DSPFIL. 
L-RECORD PIC X(65). 
PROMPT FROM FILE DSPFIL OF LIBRARY ASYNLIBCBL 


T-I REDEFINES DSPFIL-RECORD. 
RTN PIC X(5). 
PROMPT FROM FILE DSPFIL OF LIBRARY ASYNLIBCBL 


T-0 REDEFINES DSPFIL-RECORD. 
RTD PIC X(25). 
RORL PIC X(40). 


SECTION. 


PIC XX. 
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<-AL 
<-AL 
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SCOP 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 


<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 
<-AL 


L-FMTS 
L-FMTS 


YNAME 

L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 
L-FMTS 


1 12/19/90 11:26:45 Page 3 


CHG DATE 
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5738CB1 V2R1MO 910524 AS/400 COBOL/400 Source ASYNLIBCBL/ASYNSINQ 
STMT SEQNBR.=A: 1 Bistuse.2cean tig ide sastecie Fe we rtees  Seenstee ce8es tenes 7x5 IDENTFEN 
49 006700 77 STATUS-DSP PIC XX. 
50 006800 77 MAJ-MIN-SAV PIC X(4). 
51 006900 77 ERR-SW PIC X VALUE "0". 
52 007000 77 INDON PIC 1 VALUE B"1". 
53 007100 77 INDOFF PIC 1 VALUE B"Q". 
54 007200 77 OPEN-COUNT PIC 9(1) VALUE 0. 
007300 
55 007400 01 LGTHERR PIC X(40) 
56 007500 VALUE "Invalid data received M 
57 007600 01 TIMEERR PIC X(40) 
58 007700 VALUE "Timer expired on READ operation mas 
007800 
59 007900 01 TR-CTL-AREA. 
60 008000 05 FILLER PIC XX. 
61 008100 05 PGM-DEV-NME PIC X(10). 
62 008200 05 RCD-FMT-NME PIC X(10). 
008300 
63 008400 01 DSPF-INDIC-AREA. 
64 008500 05 CMD3 PIC.T INDIC 99. 
65 008600 88 CMD3-ON VALUE B"1". 
66 008700 88 CMD3-OFF VALUE B"O". 
008800 
67 008900 01 I0-FBA. 
68 009000 05 FILLER PIC X(44). 
69 009100 05 DATA-LEN PIC 9(2) USAGE IS COMP-4. 
70 009200 05 FILLER PIC X(369). 
009300 
71 009400 01 MAJ-MIN. 
72 009500 88 PARITY-ERR VALUE "0016". 
73 009600 88 DATA-LOST VALUE "0042". 
74 009700 88 FAIL-RETURNED VALUE "0302". 
75 009800 88 TIME-OUT VALUE "0310". 
76 009900 05 MAJ PIC XX. 
77 010000 88 OK-RETURNED VALUE "00". 
78 010100 05 MIN PIC XX. 
010200 
79 010300 01 DISPLAY-FEEDBACK. 
80 010400 05 CMD-KEY PIC XX. 
81 010500 05 FILLER PIC X(10). 
82 010600 05 RCD-FMT PIC X(10). 
010700 
83 10800 PROCEDURE DIVISION. 
010900 
011000 DECLARATIVES. 
011100 
011200 ERR-SECTION SECTION. 
011300 
Q LIOD Ke eK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK EK KKK KKK KKK KKK KAIRIE EK 
011500* ICF FILE ERROR HANDLER. * 
Q LO OOK eK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KKK KKK KKK IK IRR R RIK 
011700 
011800 USE AFTER STANDARD ERROR PROCEDURE ON ASYNFILS. 
011900 
012000 ASYNFILS-EXCEPTION. 
012100 
5738CB1 V2R1MO 910524 AS/400 COBOL/400 Source ASYNLIBCBL/ASYNSINQ 
STMT “SEOQNBR =A: 1 Bes Picta ste attend ieie hes ve becii hs eee bias eee Ges 
84 012200 IF MAJ NOT = "00" AND MAJ NOT = "03" THEN 
85 012300 STOP RUN. 
012400 
012500 EXIT-DECLARATIVES. 
012600 
012700 END DECLARATIVES. 
012800 
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RCH38321 


S  COPYNAME 


RCH38321 


«t....7..IDENTFCN S$ COPYNAME 


12/19/90 11:26:45 
CHG DATE 


12/19/90 11:26:45 
CHG DATE 


Page 


Page 


4 


5 


Q ZI QO K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KKK KIKI K III R RIK 
013000* START OF PROGRAM. * 
013100* * 
013200* FILES ARE OPENED. THE PROGRAM DEVICE IS ACQUIRED. THE * 
013300* EVOKE PROCESSING IS DONE. THE INITIAL DISPLAY IS SHOWN * 
013400* AND THE INITIAL READ FROM THE DISPLAY IS PERFORMED. * 
013500* PROCESSING CONTINUES UNTIL A F3 IS RECEIVED, THEN * 
013600* CLEAN UP ROUTINES ARE PERFORMED. * 
Q BT OQ KKK KKK KKK KK EK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK IK II IRIE K 
013800 
013900 START-PROGRAM SECTION. 
014000 
014100 START-PROGRAM-PARAGRAPH. 
014200 

86 014300 OPEN I-O0 ASYNFILS DSPFIL. 

87 014400 MOVE ZEROS TO DSPF-INDIC-AREA. 

88 014500 IF ERR-SW = "1" THEN 

89 014600 IF OPEN-COUNT = 9 THEN 

90 014700 PERFORM ERROR-RECOVERY 

91 014800 STOP RUN 
014900 ELSE 

92 015000 ADD 1 TO OPEN-COUNT 

93 015100 PERFORM ERROR-RECOVERY 

94 015200 GO TO START-PROGRAM-PARAGRAPH 
015300 ELSE 

95 015400 MOVE @ TO OPEN-COUNT. 

96 015500 ACQUIRE "ICFOO " FOR ASYNFILS. 

97 015600 MOVE "ICFOQ " TO PGM-DEV-NME. 

‘a 5700 PERFORM EVOKE-ROUTINE THRU EVOKE-EXIT. 

99 015800 MOVE SPACES TO DSPREC. 

100 015900 WRITE DSPREC FORMAT IS "PROMPT" 
016000 INDICATORS ARE DSPF-INDIC-AREA. 

101 016100 READ DSPFIL INDICATORS ARE DSPF-INDIC-AREA. 

102 016200 PERFORM DISPLAY-PROC THRU DISPLAY-EXIT 
016300 UNTIL CMD3-ON. 

103 016400 PERFORM END-JOB. 
016500 
Q BE OQ KAKA KAKA KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK IK IK KK KKK KKK KER ERERER 
016700* PROCESS DISPLAY DATA. * 
016800* * 
016900* SEND THE RESULTS OF THE PREVIOUS READ TO THE TARGET * 
017000* PROGRAM. PUT THE RESULTS RETURNED TO THE DISPLAY. * 
017100* PERFORM ANOTHER READ FROM THE DISPLAY. * 
Q T2OQ KKK KKK KKK KKK KKK KKK KKK KKK EKER KKK KK KKK KKK KKK IK IKK K KKK KER ERERER 
017300 

6 

017400 DISPLAY-PROC. 
017500 

104 017600 PERFORM REMOTE-PROC THRU REMOTE-EXIT. 

5738CB1 V2RIMO 910524 AS/400 COBOL/400 Source ASYNLIBCBL/ASYNSINQ | RCH38321 12/19/90 11:26:45 Page 6 
STMT SEQNBR -A 1 Be.te ec c2e eee te ee ede ete eb cc ete ce Dec ete ne Bee eetee 7. IDENTFON S COPYNAME CHG DATE 

105 017700 WRITE DSPREC FORMAT IS "PROMPT". 

106 017800 READ DSPFIL INDICATORS ARE DSPF-INDIC-AREA. 
017900 
018000 DISPLAY-EXIT. 
018100 
018200 EXIT. 
018300 
Q BADD KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KE KKK KKK KKK IKI IR ARK 
018500* PROCESS TARGET SYSTEM INFORMATION. * 
018600* * 
018700* PREPARE AND SEND PART NUMBER RECORD TO THE TARGET PROGRAM. * 
018800* PERFORM A READ TO GET DATA FROM THE TARGET PROGRAM. IF A * 
018900* FAIL IS RECEIVED, PERFORM ANOTHER READ TO GET THE ERROR * 
019000* MESSAGE FROM THE TARGET PROGRAM. IF THERE IS A TIME OUT * 
019100* WAITING FOR THE READ TO COMPLETE, PUT OUT AN APPROPRIATE * 
019200* MESSAGE. ALSO, IF THERE IS A DATA LENGTH ERROR OR PARITY * 
019300* ERROR, AN ERROR MESSAGE IS OUTPUT. * 
Q QA OOK eK KKK KKK KKK KKK RRR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK IKI RRR 


Figure F-3 (Part 4 of 6). COBOL/400 Inquiry Example — Source Program 


Appendix F. Program Examples F-7 


019800 MOVE PARTN OF PROMPT-I TO PARTNM. 
019900 WRITE ASYNREC FORMAT IS "ITEMRQ" 
020000 TERMINAL IS PGM-DEV-NME. 
020100 WRITE ASYNREC FORMAT IS "STRTIM" 
020200 TERMINAL IS PGM-DEV-NME. 
020300 READ ASYNFILS. 
020400 IF TIME-OUT THEN 
020500 MOVE SPACES TO PARTD 
020600 MOVE TIMEERR TO ERRORL 
020700 ELSE 
020800 IF FAIL-RETURNED THEN 
020900 WRITE ASYNREC FORMAT IS "INVIT" 
021000 TERMINAL IS PGM-DEV-NME 
021100 WRITE ASYNREC FORMAT IS "STRTIM" 
021200 TERMINAL IS PGM-DEV-NME 
021300 READ ASYNFILS 
021400 READ ASYNFILS FORMAT IS "ERRDES" 
021500 MOVE SPACES TO PARTD 
021600 MOVE ERRORD TO ERRORL 
021700 ELSE 
021800 READ ASYNFILS FORMAT IS "ITEMDS" 
021900 ACCEPT I0-FBA FROM I0-FEEDBACK FOR ASYNFILS 
022000 IF OK-RETURNED THEN 
022100 IF DATA-LEN NOT = 25 OR PARITY-ERR OR DATA-LOST 
022200 MOVE SPACES TO PARTD 
022300 MOVE LGTHERR TO ERRORL 
022400 ELSE 
022500 MOVE PARTDS TO PARTD 
022600 MOVE SPACES TO ERRORL 
022700 ELSE 
022800 PERFORM END-JOB. 
022900 
023000 REMOTE-EXIT. 
023100 
5738CB1 V2RIMO 910524 AS/400 COBOL/400 Source 
STMT SEQNBR -A 1 Be.teccc2ec cet cee Se cc ete ecb cc ate cee Dec eaten sDeveeteveeds 
023200 EXIT. 
023300 
O23 4 OQ x AH KK KKK KAKI KKK IKK KI IKK KK II TK KI IKK KK II TK KI IRR IRI I IK. 
023500* START TARGET PROGRAM. * 
023600* * 
023700* MOVE DATA INTO THE APPROPRIATE FIELDS AND WRITE THE EVOKE * 
023800* REQUEST RECORD OUT TO THE TARGET SYSTEM. * 


135 


136 
137 


019500 


019600 REMOTE-PROC. 
019700 


CVA CC en er Se eS Se eS Se Se 


024000 


024100 EVOKE-ROUTINE. 

024200 

024300 MOVE "ASYNCTCL " TO PGMID. 

024400 MOVE "ASYNLIBCBL" TO LIB. 

024500 WRITE ASYNREC FORMAT IS "PGMSTR" 

024600 TERMINAL IS PGM-DEV-NME. 

024700 

024800 EVOKE-EXIT. 

024900 

025000 EXIT. 

025100 

O25 200 x KKH KK KKK KKK IK KK II KK KK IKK KKH TK KI IKK KK II TK RII IRR IR IA IK. 
025300* PERFORM ERROR RECOVERY. * 
025400* * 
025500* SEND A DETACH TO THE TARGET SYSTEM. CLOSE THE FILES. * 
025600* RESET THE ERROR SWITCH. * 
O25 7 OQ x 4 KH KI IK KAKI KKK II KK KI IKK KK II TKK II IKK KI I TR KI IRR KR II TOK. 
025800 
025900 ERROR-RECOVERY. 
026000 
026100 CLOSE ASYNFILS DSPFIL. 
026200 MOVE "0" TO ERR-SW. 


026300 

026400 ERROR-RECOVERY-EXIT. 
026500 

026600 EXIT. 

026700 
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IDENTFCN S COPYNAME 


ASYNLIBCBL/ASYNSINQ RCH38321 12/19/90 11:26:45 


CHG DATE 


Page 


7 


CVActs Che er Se 2 ee 


026900* DETACH FROM TARGET SYSTEM. 
027000* 
027100* SEND '99999' RECORD TO THE TARGET SYSTEM. 


* 


* 


* 


O27 20 Q KKK RK IKI KK AK K KKK KK KIKI KK KK II TK KI IKK KK II TK KI IKK RK II IO. 


027300 

138 027400 DETACH-ROUTINE. 
027500 

139 027600 MOVE "99999" TO EQJIND. 

140 027700 WRITE ASYNREC FORMAT IS "JOBEND" 
027800 TERMINAL IS PGM-DEV-NME. 
027900 
028000 DETACH-EXIT. 

028100 

028200 EXIT. 

028300 

OZ 84 OO 4 HR KKK KR KKK KK KI IIR KI IKK KK II TOK KI IKK KK II TK RII IRR RII TOK 
028500* END THE JOB. 


028600* 
5738CB1 V2RIMO 910524 AS/400 COBOL/400 Source 
STMT SEQNBR -A 1 B..+....2....4... atts peathane 
028700* PERFORM DETACH PROCESSING. STOP PROGRAM. 


ASYNLIBCBL/ASYNSINQ 


Sec e ete bec e tee See ete O....4....7..IDENTFON S COPYNAME 


* 
* 
RCH38321 12/19/90 11:26:45 


CHG DATE 


Page 8 


* 


(CV4cts 0 Chin er Se re ee ee Se eS 


028900 


141 029000 END-JOB. 
029100 
142 029200 
029300 
143 029400 


PERFORM DETACH-ROUTINE THRU DETACH-EXIT. 


STOP RUN. 
x**e**e** END OF SOURCE 
5738CB1 V2RIMO 910524 AS/400 COBOL/400 Messages 
STMT 
* 24 MSGID: LBLQ600 
Message. ... 
MSGID: LBL0Q600 
Message. ... 
MSGID: LBLQ600 
Message .... 
MSGID: LBLO600 
Message . 


SEVERITY: 10 SEQNBR: 005300 
: No INPUT fields found for format STRTIM. 
SEVERITY: 10 SEQNBR: 005300 
: No INPUT fields found for format PGMSTR. 
SEVERITY: 10 SEQNBR: 005300 
: No INPUT fields found for format INVIT. 
SEVERITY: 10 SEQNBR: 005300 
. .. +t No INPUT fields found for format PGMERR. 
MSGID: LBLO335 SEVERITY: 00 SEQNBR: 012700 
Message . . .. : Empty paragraph or section precedes 'END 
DECLARATIVES' paragraph or section. 
xxx ex END OF MESSAGES 
Message Summary 
Total Info(0-4) Warning (5-19) Error (20-29) 
5 1 4 0 0 
Source records read... .....: 294 
Copy records read... ......: 44 
Copy members processed : 
Sequence errors .....656564.3 98 
Highest severity message issued . . : 10 
LBLO901 00 Program ASYNSINQ created in library ASYNLIBCBL. 
kK kK KKK END OF 


* 24 


* 24 


x 24 


* 86 


Severe (30-39) 


COMPILATION 


kK KK KK 


ASYNLIBCBL/ASYNSINQ 


RCH38321 12/19/90 11:26:45 Page 9 


kK Ke KK 


Terminal (40-99) 
0 


kK KK OK 


Figure F-3 (Part 6 of 6). COBOL/400 Inquiry Example — Source Program 


COBOL/400 Target Program: The following describes 
the COBOL/400 inquiry program that runs on the remote 
AS/400 system. 


Program Files: The COBOL/400 inquiry target program 
uses the following files: 


ASYNFILT The ICF file used to receive part numbers from 
and send responses to the source program. 


Note: The DDS for the ICF file is the same at 
the source and target program. 


DBFIL The database file that contains the part numbers 
and associated descriptions. This file is used to 
validate the part number received from the 
source program. 

DDS Source: The DDS for the database file is shown in 


Figure F-4 on page F-10. 


F-9 


Appendix F. Program Examples 


100 Axe -------------------------------- 
200 Ax This file has UNIQUE key values. 
300 Ax In other words, Duplicate Keys are NOT allowed. 
400 Axe -------------------------------- 
500 A UNIQUE 
600 A R DBRCD 
700 A ITEMNM 5 
800 A ITEMD 25A 
900 A K ITEMNM 
xe ee * END OF SOURCE ** * * 


Figure F-4. DDS Source for Database File, COBOL Target Program 


ICF File Creation and Program Device Entry Definition: 
The following command is used to create the ICF file. Note 
that the same ICF file is used for both the source and target 
programs. 


CRTICFF FILE (ASYNLIBCBL/ASYNFILT) 
SRCFILE (ASYNLIBCBL/QDDSSRC) 
SRCMBR(ASYNFIL) 


MAXPGMDEV (2) WAITRCD(30) o 


The following command is used to define the program device 
entry. 


ADDICFDEVE FILE(ASYNLIBCBL/ASYNFILT) 
PGMDEV (ICF01) 
RMTLOCNAME (*REQUESTER) 


The following two commands can also be used. 5 


OVRICFDEVE PGMDEV(ICFO1) RMTLOCNAME (*REQUESTER) 
OVRICFF FILE (ASYNFILT) 
TOFILE(ASYNLIBCBL/ASYNFILT) 


Database File Creation: The following command is used to 
create the database file: 


CRTPF FILE (ASYNLIBCBL/DBFIL) 
SRCFILE(ASYNLIBCBL/QDDSSRC) 
SRCMBR(DBFILE) 


In order to use the database file with this example, data must 
be entered in the file. The program requires the item 6 
numbers to be greater than 10000. 


Program Explanation: The following describes the struc- 

ture of the program example illustrated in Figure F-5 on 

page F-11. 

E¥ The file division section defines the files used in the 
program. 
ASYNFILT is the ICF file used to receive records from 8 | 
and send records to the source program. DBFIL is the 
database file that contains the valid part numbers and 9 | 
part descriptions. 


Hs This section defines the input/output feedback area for 
use within the program. 


The ICF file (ASYNFILT) and the database file (DBFIL) 


| 


are opened. The program then establishes a session 


using program device ICFO1 in ICF file ASYNFILT. 


F-10 AS/400 Asynchronous Communications Programming V4R1 


This is the program device that is associated with a 
remote location name of “REQUESTER. The name of 
the program device is then moved to field 
PGM-DEV-NME to define the device used. 


A read operation is issued to the program device to 
receive an inquiry request from the source program. If 
the read is successful, control passes to fj. 


This routine ends the job. It is called from [J if an 
error has occurred; or it is performed after a detach is 
received from the source program (subroutine [ij has 
completed). 


The files used by the program are implicitly closed. 
The program then ends. 


This subroutine is called from to process the 
request from the source program. If the part number 
received is less than 10000, routine [q is called to 
send the error message to the source program. 


If the part number is greater than 10000, the database 
file is read to find the part numbers and associated 
description. If the part number is not found, routine 

is called to build the error response. If the part 
number is found, routine [J builds the response and 
sends the record. Routine [fj is repeated until a 
detach is received from the source program. 


This routine is called when the part number is found in 
the database. It builds the response by moving the 
part description to the output file and then sends the 
response to the source program. 


This routine is called from [jj if the part number is not 
found in the database file. It builds the error response 
indicating that the record was not found and calls Ey 
to send the response. Control then returns to fq. 


This routine is called from either [J or to send an 
error response to the source program. 


This routine is the exception handler for ASYNFILT. 
When an exception is issued against the file, control 
passes here to check the return code. If any return 
code other than normal (0000) is returned to the 
program, the program is ended. 


This routine closes all opened files, resets the error 
flag, and ends the program. 


5738CB1 V2RIMO 910524 


Program 
Library 

Source file 
Library 

Source member 


Generation severity level . 


Text 'description' 
Source listing options 
Generation options 


Print file 
Library 
FIPS flagging 
SAA flagging 


Flagging severity 


Replace progra 
Target release 
User profile 
Authority 
Compiler 


m 


5738CB1 V2R1MO 910524 
STMT SEQNBR -A 1 B..+....2. 
1 000100 IDENTIFICATION. DIVISION. 


000200 


2 000300 PROGRAM-ID. A 


000400 


IBM AS/400 COBOL/400 

ASYNTINQ 
ASYNLIBCBL 

QCBLSRC 
ASYNLIBCBL 


ASYNTINQ 12/19/90 11:14:51 


*NONE 


*NOFLAG 


*LIBCRTAUT 
IBM AS/400 COBOL/400 
AS/400 COBOL/400 Source 


eet need ene St As eae omate sed De weet seals Os daa tess 


SYNTINQ. 


ASYNLIBCBL/ASYNTINQ 


ASYNLIBCBL/ASYNTINQ 
Téa 


COO 5 OO 2 a oe HH KI KK KKK KK II KK KI IKK KK II TKK I IKK RII TR RII IRR RII IK. 


000600 
000700 
000800 
000900 
001000* 
001100« 
001200 
001300 
001400« 
001500 
001600 
001700* 
001800* 
001900 


002100 
3 002200 

002300 
4 002400 
002500 
002600 
002700 
002800 
002900 
003000 
9 003100 

003200 


8 003300 
003400 
003500 
003600 
003700 
003800 
003900 
004000 
004100 
004200 
004300 
9 004400 
004500 
004600 
004700 


ANDaRWNHPHE 


20 


T 


ROM T! 
FAIL' 


ROGRAM 
SYSTEM 


HE SOUR' 
IS SENT 


HE TEXT TO BE USED AS AN 


UND. IF 


HICH WAS RET. 


4 CLE: 7 
BESTS SE 


IS STARTED BY THE PROGRAM 'ASYNSINQ' ON A 
SENDING A PROGRAM START REQUEST. 

DEVICE 'ICFQ1', IT RECEIVES A PART NUMBER 
SYSTEM. IF THE PART NUMBER IS INVALID, A 
TO THE SOURCE SYSTEM AND AND FOLLOWED WITH 


CE 


THE PART NUMBER IS FOUND, A PART DESCRIPTION 
RIEVED FROM THE DATABASE IS SENT TO THE SOURCE 
HE PART NUMBER IS LESS THAN 10000, AN ERROR 

NT TO THE SOURCE SYSTEM. 


HE PROGRAM IS ENDED WHEN A '99999' IS RECEIVED FROM THE 


SOURCE SYSTEM. 


(CCV Cn er SS eS Se eS SS 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


SOURCE-COMPUTER. 
OBJECT-COMPUTER. 


SPECIAL-NAMES. 


IBM-AS400. 

IBM-AS400. 

I-0-FEEDBACK IS I0-FEEDBACK 
OPEN-FEEDBACK IS OPEN-FBA. 


INPUT-OUTPUT SECTION. 


FILE-CONTROL. 


DA 


FI 


ERROR MESSAGE ON THE SOURCE SYSTEM. 
HE SAME IS TRUE IF THE PART NUMBER IS SEARCHED FOR BUT 


SELECT ASYNFILT ASSIGN TO WORKSTATION-ASYNFILT 
ORGANIZATION IS TRANSACTION 
CONTROL-AREA IS TR-CTL-AREA 

FILE STATUS IS STATUS-IND MAJ-MIN. 

SELECT DBFIL ASSIGN TO DATABASE-DBFIL 
ORGANIZATION IS INDEXED 
ACCESS IS RANDOM 

RECORD KEY IS ITEMNM. 


TA DIVISION. 


LE SECTION. 


+ FF HF HF HF HF HF HF HF HF HF HF F 


COA ROO x 2 a HHH KI IKK KR AIK KKK II KK KI IKK KK I ICTR KIRK RII TOR RI IRR RR II IK. 


004900* FILE DESCRIPTION FOR THE ICF FILE USED BY THIS PROGRAM. 


* 


QO 5 O00 2 2 He HH KI IK KK AK KKK II KK KI IKK KK II TOR KI ITOK RK II TR RII IRR I II TOK. 


005100 
005200 
005300 
005400 
005500 


FD 


01 


ASYNFILT 

LABEL RECORDS ARE STANDARD. 

ASYNREC. 

COPY DDS-ALL-FORMATS-I-0 OF ASYNFILT. 


Figure F-5 (Part 1 of 5). COBOL/400 Inquiry Example — Target Program 


RCH38321 


RCH38321 
IDENTFCN S COPYNAME 


12/19/90 11:27:07 


12/19/90 11:27:07 


Page 1 


Page 2 
CHG DATE 
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STMT SEQNBR -A 1 B..+. 


AS/400 COBOL/400 Source 


Poel oreet ees 


25 +000001 
+000002* 1-0 FORMAT:STRTIM 
+000003* 
+000004« 05 STRTIM 
+000005* INPUT FORMAT: PGMSTR 
+000006* 
+000007* 05 PGMSTR-I 
+000008* OUTPUT FORMAT: PGMSTR 
+000009* 

26 +000010 05 PGMSTR-0 

27 +000011 06 PGMID 

28 +000012 06 LIB 
+000013* 1-0 FORMAT: ITEMRQ 
+000014« 

29 +000015 05 ITEMRQ 

30 +000016 06 PARTNM 
+000017* 1-0 FORMAT: JOBEND 
+000018* 

31 +000019 05 JOBEND 

32 +000020 06 EQJIND 
+000021* 1-0 FORMAT: INVIT 
+000022* 
+000023* 05 INVIT 
+000024« 1-0 FORMAT: ITEMDS 
+000025* 

33 +000026 05 ITEMDS 

34 +000027 06 PARTDS 
+000028* 1-0 FORMAT: ERRDES 
+000029% 

35 +000030 05 ERRDES 

36 +000031 06 ERRORD 
+000032* 1-0 FORMAT: PGMERR 
+000033* 
+000034* 05 PGMERR 
005600 


ie Delecacstiecays eb ite oaths «t's Dalene 
05 ASYNFILT-RECORD PIC X(40). 


FROM FILE ASYNFILT 


REDEFINES ASYNFILT-RECORD. 


FROM FILE ASYNFILT 


REDEFINES ASYNFILT-RECORD. 


FROM FILE ASYNFILT 


ete a eOo0% 


ASYNLIBCBL/ASYNTINQ 
«t....7..IDENTFCN S$  COPYNAME 


OF LIBRARY ASYNLIBCBL 


OF LIBRARY ASYNLIBCBL 


OF LIBRARY ASYNLIBCBL 


REDEFINES ASYNFILT-RECORD. 


FROM FILE ASYNFILT 


FROM FILE ASYNFILT 


FROM F 


FROM 


FROM FILE ASYNFILT 


FROM FILE ASYNFILT 


REDEFINES ASYNFILT-RECORD. 


REDEFINES ASYNFILT-RECORD. 


REDEFINES ASYNFILT-RECORD. 


REDEFINES ASYNFILT-RECORD. 


OF LIBRARY ASYNLIBCBL 


OF LIBRARY ASYNLIBCBL 


F LIBRARY ASYNLIBCBL 


F LIBRARY ASYNLIBCBL 


OF LIBRARY ASYNLIBCBL 


OF LIBRARY ASYNLIBCBL 


REDEFINES ASYNFILT-RECORD. 


O57 OQ x ee KKK KARR KK I IKK KI IKK KK II TOK KI IKK KK II TOR KI IRR RR II IK. 


005800* FILE DESCRIPTION FOR THE DATABASE FILE USED BY THIS PROGRAM. * 


QO 59 OO x He HH KI HK KR AKI K KK II KK KI IKK KK I ICTR KIRK RII TR KI IRR III TOK. 


OF LIBRARY ASYNLIBCBL 


ASYNLIBCBL/ASYNTINQ 
ot....6....4....7..IDENTFCN S  COPYNAME 


006000 
37 006100 FD DBFIL 
38 006200 LABEL RECORDS ARE STANDARD. 
39 006300 01 DBREC. 
49 006400 COPY DDS-ALL-FORMATS OF DBFIL. 
41 +000001 05 DBFIL-RECORD PIC X(30). 
+000002* 1-0 FORMAT:DBRCD FROM FILE DBFIL 
+000003* 
+000004« USER SUPPLIED KEY BY RECORD KEY CLAUSE 
42 +000005 05 DBRCD REDEFINES DBFIL-RECORD. 
43 +000006 06 ITEMNM PIC X(5). 
44 +000007 06 ITEMD PIC X(25). 
006500 
45 006600 WORKING-STORAGE SECTION. 
006700 
46 006800 77 STATUS-IND PIC XX. 
47 006900 77 ERR-SW PIC X VALUE "0". 
5738CB1 V2RIMO 910524 AS/400 COBOL/400 Source 
STMT SEQNBR -A 1 B..t....2s..ctece See etece Gescetenes Deas 
48 007000 77 OPEN-COUNT PIC 9(1) VALUE 0. 
49 007100 77 ERROR-FND PIC X VALUE "0". 
007200 
50 007300 1 TR-CTL-AREA. 
51 007400 05 FILLER PIC X(2) 
52 007500 05 PGM-DEV-NME PIC X(10) 
53 007600 05 RCD-FMT-NME PIC X(10) 
007700 
2 | 
54 007800 1 I0-FBA. 
55 007900 05 FILLER PIC X(37) 
56 008000 05 DSP-FMT PIC X(10) 
57 008100 05 FILLER PIC X(225). 
58 008200 05 PGM-DEVICE-NAME PIC X(10) 
59 008300 05 FILLER PIC X(84). 
69 008400 05 DEV-DEP-AREA. 
61 008500 10 FILLER PIC X(4). 
62 008600 10 DATA-LEN PIC 9(4). 
63 008700 10 FILLER PIC X(34). 
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RCH38321 


<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 


<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 
<-ALL-FMTS 


RCH38321 


12/19/90 11:27:07 


CHG DATE 


12/19/90 11:27:07 


CHG DATE 


Page 


Page 


3 


4 


64 008800 10 MAJ-MIN-S. 


65 008900 15 MAJ-S_— PIC XX. 

66 0909000 15 MIN-S PIC XX. 

67 009100 10 FILLER PIC X(8) 

68 009200 05 FILLER PIC XXX 
009300 

69 009400 01 MAJ-MIN. 

70 009500 05 MAJ PIC XX. 

71 009600 05 MIN PIC XX. 
009700 

72 009800 01 NOT-FND-MSG PIC X(40) 

73 009900 VALUE "The requested part was not found. ", 
010000 

74 010100 01 INV-PRT-MSG PIC X(40) 

75 010200 VALUE "The part number must be over 10000. ". 
010300 

76 010400 PROCEDURE DIVISION. 
010500 
010600 DECLARATIVES. 
010700 
010800 ERR-SECTION SECTION. 
010900 
Q LOOD % ke KKK KKH K KKK KERR KKK KKK KK KK KKK KKK KKK KE KEK KKK KKK KKK KKK IKKE K 
011100* ICF FILE ERROR HANDLER. * 
Q L200 % eK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KEK ERK KK KKK RIKKI K IKKE K 
011300 
011400 USE AFTER STANDARD ERROR PROCEDURE ON ASYNFILT. 
011500 

19 

011600 ASYNFILT-EXCEPTION. 
011700 

77 011800 IF MAJ-MIN NOT = "0000" 

78 011900 STOP RUN. 
012000 
012100 EXIT-DECLARATIVES. 
012200 
012300 END DECLARATIVES. 
012400 

5738CB1 V2R1MO 910524 AS/400 COBOL/400 Source ASYNLIBCBL/ASYNTINQ 


STMT SEQNBR -A 1 Be.teecc2e cect ce Sec e tee eb c ete ee Dee cet Bee... ..7..IDENTFON S COPYNAME 


Q 25 OOK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KIKI KIARA EK 
012600* START OF PROGRAM. * 
Q ZT OOK KKK KKK KKK KKK ERK K KK KKK KKK KKK KKK KKK KKK KKK EKER KK KKK KIKI K III K 
012800 
012900 START-PROGRAM SECTION. 
013000 
013100 START-PROGRAM-PARAGRAPH. 
013200 
3 
73 3300 OPEN I-O ASYNFILT DBFIL. 
80 3400 MOVE "ICFO1 " TO PGM-DEV-NME. 
81 3500 IF ERR-SW = "1" THEN 
82 3600 IF OPEN-COUNT IS = 9 THEN 
83 3700 PERFORM ERROR-RECOVERY 
84 3800 STOP RUN 
3900 ELSE 
85 4000 ADD 1 TO OPEN-COUNT 
86 4100 PERFORM ERROR-RECOVERY 
87 4200 GO TO START-PROGRAM-PARAGRAPH 
4300 ELSE 
88 4400 MOVE @ TO OPEN-COUNT. 
89 4500 ACQUIRE "ICFO1 " FOR ASYNFILT. 


READ ASYNFILT FORMAT IS "ITEMRQ". 
4700 PERFORM READ-REQUEST THRU READ-EXIT 
4800 UNTIL TTEMRQ = "99999", 
4900 PERFORM END-JOB. 


BOQ KKK AK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK IK IK IKK K KKK KER ERERER 
5200* PROCESS INPUT FROM SOURCE SYSTEM. 
5300* 
5400* IF THE PART NUMBER IS LESS THAN 10000, AN ERROR MESSAGE IS 
5500* MOVED TO THE ERROR MESSAGE OUTPUT FIELD. OTHERWISE, THE 
5600* DATABASE IS SEARCHED FOR THAT PART. IF IT IS NOT FOUND, 
5700* ERROR PROCESSING IS DONE. IF IT IS FOUND, NORMAL PROCESSING 
5800* CONTINUES. 


BOQ KKK KAK KKK KK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK IK IKK IKKE ERERER 


Figure F-5 (Part 3 of 5). COBOL/400 Inquiry Example — Target Program 
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016000 
5 
016100 READ-REQUEST. 
016200 
93 016300 MOVE "O" TO ERROR-FND. 
94 016400 IF PARTNM IS LESS THAN "10000" THEN 
95 016500 MOVE INV-PRT-MSG TO ERRORD 
96 016600 PERFORM ERROR-SEND THRU ERROR-EXIT 
016700 ELSE 
97 016800 MOVE PARTNM TO ITEMNM 
98 016900 READ DBFIL FORMAT IS "DBRCD" 
99 017000 INVALID KEY PERFORM RECORD-NOT-FOUND 
017100 THRU RECORD-NF-EXIT. 
100 017200 IF ERROR-FND = "@" THEN 
101 017300 PERFORM SEND-RECORD THRU SEND-REC-EXIT. 
102 017400 READ ASYNFILT FORMAT IS "ITEMRQ". 
017500 
017600 READ-EXIT. 
017700 
017800 EXIT. 
017900 
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STMT SEQNBR -A 1 Be.te ee c2e ec ete ec ede e eet eb cet ce Dec eet ee Bee eete eZ. IDENTFON S COPYNAME CHG DATE 


OLED OO % xe KK KKK KKK KKK KKK KKK KKK KKK IKK IKK K IK KIKI KIKI KIA KIRK IK KIKI IK 
018100* RECORD WAS FOUND IN DATABASE FILE, RETURN DATA. * 
018200 * 
018300* THE ITEM DESCRIPTION OF THE PART IS MOVED TO THE OUTPUT * 
018400* FIELD AND SENT TO THE SOURCE PROGRAM. * 
OLB 500 x x KKK KKK RRR RK KKK KKK KKK KKK KAKI KKK KIKI KKK IK KIRK IK KIKI IK 
018600 

103 018700 SEND-RECORD. 
018800 

104 018900 MOVE ITEMD TO PARTDS 

105 019000 WRITE ASYNREC FORMAT IS "ITEMDS" 
019100 TERMINAL IS PGM-DEV-NME. 
019200 
019300 SEND-REC-EXIT. 
019400 
019500 EXIT. 
019600 
O19 7 OQ KK RHR K RR KK KKK KK KIRK KKK KKK IKI KKK KK KKK KIKI A KIRK IK KIKI IK 
019800* RECORD NOT FOUND IN DATABASE FILE, INDICATE ERROR. * 
019900 * 
020000* MOVE THE ERROR MESSAGE TO THE OUTPUT FIELD AND EXECUTE THE * 
020100* ERROR SEND PROCESSING. * 
OZ O2 OO x 4 KKK KK KAKI KKK IKK KI IKK KK II TKK I IKK KK II TK RI IRR III TOK. 
020300 

106 020400 RECORD-NOT-FOUND. 
020500 


107 020600 MOVE NOT-FND-MSG TO ERRORD. 
108 020700 PERFORM ERROR-SEND THRU ERROR-EXIT. 


020800 

020900 RECORD-NF-EXIT. 
021000 

021100 EXIT. 
021200 


O21 300 x 4 HK KKK KAKI KKK II KK KI IKK IKI I TOK KI IKK KI I TK KI IRR IR II TOK. 
021400* SEND ERROR BACK TO SOURCE SYSTEM. 
021500* 
021600* TURN ERROR INDICATOR FLAG ON. SEND A 'FAIL' TO THE SOURCE 
021700* PROGRAM. SEND THE ERROR MESSAGE WHICH WAS PREVIOUSLY PUT 
021800* INTO THE OUTPUT FIELD TO THE SOURCE PROGRAM. 

CVAR CC no Sr Se eS Se eS Se 


022000 


+ * F F 


109 22100 ERROR-SEND. 
022200 

110 022300 MOVE "1" TO ERROR-FND. 

111 022400 WRITE ASYNREC FORMAT IS "PGMERR" 


022500 TERMINAL IS PGM-DEV-NME. 

112 022600 WRITE ASYNREC FORMAT IS "ERRDES" 
022700 TERMINAL IS PGM-DEV-NME. 
022800 
022900 ERROR-EXIT. 

023000 


023100 EXIT. 
Figure F-5 (Part 4 of 5). COBOL/400 Inquiry Example — Target Program 
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023200 


O23 3 OQ x AHHH IKK KAKI KKK II KK KIKI K KKK II TOK KI IKK KK II TR RI IRR III IK. 


023400* PERFORM ERROR RECOVERY. 


* 
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STMT SEQNBR -A 1 Be.te ec s2e cect ce ede e cet ce be cet ce Dec eet ee Bee eete eZ. IDENTFON S COPYNAME CHG DATE 
023500* * 
023600* CLOSE OPENED FILES. RESET THE ERROR FLAG. * 
0237 OOK eK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KEKE KKK KKK KKK IK IIR RIK 
023800 
113 023900 ERROR-RECOVERY. 
024000 
114 024100 CLOSE ASYNFILT DBFIL. 
115 024200 MOVE "0" TO ERR-SW. 
024300 
024400 ERROR-RECOVERY-EXIT. 
024500 
024600 EXIT. 
024700 
O24 B00 % ex KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KEKE KKK KKK KIKI K KAIRIE K 
024900* END THE JOB. * 
025000* * 
025100* STOP PROGRAM. * 
O25 200% eK KKK KKK KKK KKK K KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KIKI K KIRKE K 
025300 
116 025400 END-JOB. 
025500 
117 025600 STOP RUN. 
eee * * END OF SOURCE * * * * 
5738CB1 V2RIMO 910524 AS/400 COBOL/400 Messages ASYNLIBCBL/ASYNTINQ RCH38321 12/19/90 11:27:07 Page 8 
STMT 
* 24 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 005500 
Message . . . . : No INPUT fields found for format STRTIM. 
x 24 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 005500 
Message . . . . : No INPUT fields found for format PGMSTR. 
* 24 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 005500 
Message . . . . : No INPUT fields found for format INVIT. 
* 24 MSGID: LBLO600 SEVERITY: 10 SEQNBR: 005500 
Message . . . . : No INPUT fields found for format PGMERR. 
* 79 MSGID: LBLO335 SEVERITY: 00 SEQNBR: 012300 
Message . . .. : Empty paragraph or section precedes 'END 
DECLARATIVES' paragraph or section. 
xe *e*e* END OF MESSAGES ** * * * 
Message Summary 
Total Info(0-4) Warning (5-19) Error (20-29) Severe (30-39) Terminal (40-99) 
5 1 4 0 0 ) 
Source records réad sie ee ek ee 256 
Copy records read... ......: = 4l 
Copy members processed ......: 2 
Sequence errors .. 2.256656. 3 8 
Highest severity message issued . . : 10 


LBLO901 00 Program ASYNTINQ created in library ASYNLIBCBL. 
xex**x ex END OF COMPILATION 


KKK KK 


Figure F-5 (Part 5 of 5). COBOL/400 Inquiry Example — Target Program 


RPG/400 Program Examples 


The RPG/400 source program starts a session with a remote 
location and issues an evoke function, with no invite, to start 
the target program. The source program sends item 
numbers to the target program and then waits 30 seconds 
(the value specified by the WAITRCD parameter on the 
CRTICFF command) to receive an acknowledgment from the 
target program indicating that the evoke function completed 
successfully. If the source program receives a major return 
code equal to or greater than 03, the program goes to end of 
job. 


In the following sample programs, the source program sends 
an item number to the target program requesting item infor- 
mation. The target program then sends the item information 
(description and quantity) to the source program. The source 
program sends the value 99999 to the target program, to 


indicate end-of-transaction. At this point, both programs go 
to end of job. 


RPG/400 Program Descriptions 


The following information describes the structure of the 
example programs in Figure F-7 on page F-18 and 
Figure F-9 on page F-24. The reference numbers in the 
figures correspond to those in the descriptions. 


RPG/400 Source Program: The following describes the 
RPG/400 inquiry program that runs on the local system. 


Program Files: The RPG/400 source program uses the fol- 
lowing files: 


CMNFILS_ An ICF file used to send records to and receive 
records from the target program. 
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QPRINT = An AS/400 printer file that is used to print 
records, both sent and received, as well as 


major and minor ICF return codes. 


SEQNBR:, *iis.cHes wales ce tes. hla Peis cede ewt ae Ae caliteg ceD eeetie 6 O0Ge ots 
100 Axk * * kk KK KK KK KK KK KK KK KK KK KK KK KKK 
200 Ax 
300 Ax ICF communications file used by the Source System to 
400 Ax send/receive interactively with the Target System. 

500 Ax 
600 Axk * * & kK RK KK KK KK KK KK KK KK KK KK KK KKK 
700 Ax 
800 A R_ ITMREC 
900 A ITMDSC 25A 
1000 A ITMQTY 5S 
1100 Ax 
1200 A R EVOKE 
1300 A EVOKE (&LIB/&PGM) 
1400 A SECURITY( 2 &USRPWD + 
1500 A 3 &USRID) 
1600 Ak * * kk KK KK KK KK KK KK KK KK KK KK KK KKK 
1700 Ax 
1800 Ax * The data placed in USERID and USRPWD must correspond t 
1900 Ax a user profile and password, respectively, on the Targ 
2000 Ax System. 
2100 Ax 
2200 Ax * The user in USRID must have authority to the device 
2300 Ax object (device description) being used on the Target 
2400 Ax System, as well as to the program and library indicate 
2500 Ax in PGM and LIB, respectively. 
2600 Ax 
2700 Ak * * kk KK KK KK KK KK KK KK KK KK KK KK KKK 
2800 A PGM 10A P 
2900 A LIB 10A P 
3000 A USRID 10A_ P 
3100 A USRPWD 10A P 
3200 Ax 
3300 A R ITMREQ 
3400 A INVITE 
3500 A ITMNO 5A 

ee ee * END OF SOURCE ** * * 


Data Description ASY 


Expanded Source 


SEQNBR: , iss.cFae Sails ean Pals tis Qcceuits cna Bare cates Ag ceie tag aD aed atten tae ets 
800 R ITMREC 
900 ITMDSC 25A B 
1000 ITMQTY 5S OB 
1200 R EVOKE EVOKE(&LIB/&PGM) + 
1400 SECURITY( 2 &USRPWD 3 
2800 PGM 10A P 
2900 LIB 10A P 
3000 USRID 10A P 
3100 USRPWD 10A P 
3300 R ITMREQ INVITE 
3500 ITMNO 5A B 
***** END OF EXPANDED SOURCE 
5738SS1 V2RIMO 910524 Data Description ASY 
Message Summary 
Total Informational Warning Error Severe 
(0-9) (10-19) (20-29) (30-99 
0 0 0 0 0 
* CPC7301 00 Message... 2.3: File CMNFILS created in 
***e** END OF COMPILATION 


DDS Source: The DDS used in the ICF file is shown in the 
following example. QPRINT is a program-described file and 
does not require DDS. 


-oo7...-+....8 Date 
kk * 
* 
* 
* 
* 
kk * 
kk * 
* 
fe) * 
et * 
* 
* 
* 
* 
d * 
* 
* 
kk * 
NLIBRPG/CMNFILS 12/14/90 9:48:47 Page 2 
Field Buffer position 
wee7eeeet....8 length Out In 
25 1 
5 26 26 
&USRID) 
10 
10 1 
10 2 
10 3 
5 1 
kK RK RK KK 
NLIBRPG/CMNFILS 12/14/90 9:48:47 Page 3 


) 


library ASYNLIBRPG. 


kK KK OK 


Figure F-6. DDS Source for ICF File CMNFILS, RPG/400 Source Program 
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ICF File Creation and Program Device Entry Definition: 
The following command is needed to create the ICF file: 


CRTICFF — FILE(ASYNLIBRPG/CMNFILS) 
SRCFILE (ASYNLIBRPG/QDDSSRC) 
ACQPGMDEV (CMNFILS) 
MAXPGMDEV(2) WAITRCD(30) 
OVRICFDEVE PGMDEV(CMNFILS) 
RMTLOCNAME (CHICAGO) 


Program Explanation: The following describes the struc- 
ture of the program example shown in Figure F-7 on 

page F-18. The ICF file used in this example contains 
externally described data formats (DDS) defined by the user. 
The reference letters in the figure correspond to those in the 
following program description. 


E¥_ = This section identifies the files used in the program. 
CMNFILS is the name of the ICF file used to 
send/receive records to and from the target program. 


The files used in the program are opened at the begin- 
ning of the RPG cycle and the ICF program device is 
implicitly acquired because the ACQPGMDEV param- 
eter was specified on the CRTICFF command. 


EZ _sIOFB is the name of the file information data structure 
(INFDS) used with CMNFILS. It contains the following 
information: 


e File status (STS) 
¢ Major and minor return code (MAJMIN, MAJCOD, 
MINCOD) 


This section builds the evoke function to send to the 
target system. Because the DDS for the record format 
only specifies the field identifiers with the record, this 
code moves the values for the program name, library 
name, user-id, and password from the array, TARGET, 
to fields PGM, LIB, USRID, and USRPWD, respec- 
tively. 


When the program start request is received at the 
target system, CMNLIB is searched for ASYNCRCL 
and that program is then started. ASYNCRCL is a CL 
program that contains the following: 

ADDLIBLE —LIB(ASYNLIBRPG) 


OVRICFDEVE PGMDEV (CMNFILT) 
RMTLOCNAME (*REQUESTER) 


OVRPRTF FILE (QPRINT) 
OUTQ(ASYNLIBRPG/ASYNCT) 
CALL PGM(ASYNLIBRPG/ASYNCT) 


Item numbers are sequentially retrieved from the array 
ITM# and sent to the target program. 


In this section, the value accessed in the array ITM# is 
sent to the target program. The record format ITMREQ 
contains the item number. The DDS keyword INVITE 
allows the target program to respond. 


A read-from-invited-program-devices operation is per- 
formed to receive the data from the target program. 
This operation continues to wait for data until data is 
received or until the timer value, specified in the 
WAITRCD parameter of the CRTICFF command, is 
exceeded. If the time specified for the WAITRCD 
parameter is exceeded, an ICF major or minor return 
code of 0310 is received by the source program, and 
the program ends. Using a read-from-invited-program- 
devices operation and the WAITRCD parameter pre- 
vents the source program from waiting indefinitely if no 
data is available. 


This section sends a flag to the target program to indi- 
cate the end of transaction. 


If an error occurs, the session ends. 


The program ends by setting the last run indicator (LR) 
to ON and returning to the program that called the 
program. The ICF file is closed, and the session ends 
at the end of the RPG/400 cycle. 
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5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCS 12/14/90 09:48:48 Page 


Compiler. ......... 4... : IBM AS/400 RPG/400 
Command Options: 
Program ........ 2... . 2 ASYNLIBRPG/ASYNCS 
Source file .......... :  ASYNLIBRPG/QRPGSRC 
Source member .........:  *PGM 
Source listing options... .. :  *SOURCE *XREF *GEN *NODUMP *NOSECLVL 
Generation options. ..... . :  *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE 
Source listing indentation . ..:  »*NONE 
SAA flagging. ......... : + *NOFLAG 
Generation severity level ...: 9 
Print file. .......... :  ¥*LIBL/QSYSPRT 
Replace program ........: = *YES 
Target release... ...... : =  *CURRENT 
User profile <2 ac ee a > AUSER 
Authority ........... 3:  *LIBCRTAUT 
TORE. Shi ser ar Wo cao gae ee? wer er We wee) SREMBRIXT 
Phase trace ..........:  ¥*NO 
Intermediate text dump... ..:  *NONE 
Snap dump ........... :  *NONE 
Codelist..........2..: = *NONE 
Ignore decimal data error ...:  ¥*NO 
Actual Program Source: 
Member. ......... +... =:  ASYNCS 
FAG ss: ie kena Wyte ger eke ap ere ae “E JORPGSRE 
Library .......... +... :  ASYNLIBRPG 
Last Change ..........: 12/14/90 09:48:07 
Description .......... : Source System's RPG program example (source code). 
5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCS 12/14/90 09:48:48 Page 
SEQUENCE IND DO LAST PAGE PROGRAM 


NUMBER Mace Liat etb ears clea ats Ce deas et yiacbees MPa et OAmatcees Oras ahi samiheae® «USE NUM UPDATE LINE ID 


100 4H ASYNCS 
200 *--------------------------------- 

300 * THIS IS AN INTERACTIVE SEND/RECEIVE PROGRAM THAT USES AN ARRAY 

400 * (ITM#) TO SIMULATE THE RETRIEVING OF AN ITEM NUMBER FROM A DATA 

500 * FILE AND THEN SENDS THAT ITEM NUMBER TO A TARGET SYSTEM IN ORDER 

600 * TO RETRIEVE AN ITEM DESCRIPTION AND A QUANTITY FROM THE TARGET 

700 * SYSTEM'S DATA FILE ON A SUBSEQUENT READ TO THE ICF FILE. 

800 *--------------------------------- 

900 Fx - 12/14/90 
1000 FCMNFILS CF E WORKSTN 

1100 F KINFDS IOFB 

1200 F KNUM 1 

1300 F KID ID 


RECORD FORMAT(S): LIBRARY ASYNLIBRPG FILE CMNFILS. 
EXTERNAL FORMAT ITMREC RPG NAME ITMREC 
EXTERNAL FORMAT EVOKE RPG NAME EVOKE 
EXTERNAL FORMAT ITMREQ RPG NAME ITMREQ 
1400 FQPRINT O F 132 OF PRINTER 
1500 E* ARRAYS 


1600 E TARGET 1 4 10 Target Sys. Info. 12/12/90 
1700 £ FILERR 1 6 66 File Error Msgs. 12/13/90 
1800 E ITM# L205 ITEM NUMBER 

AQ00000 = =INPUT FIELDS FOR RECORD ITMREC FILE CMNFILS FORMAT ITMREC. 

AQ00001 1 25 ITMDSC 

A000002 26 3001 TMQTY 


BOG0000 INPUT FIELDS FOR RECORD EVOKE FILE CMNFILS FORMAT EVOKE. 
C000000 INPUT FIELDS FOR RECORD ITMREQ FILE CMNFILS FORMAT ITMREQ. 


C000001 1 5 ITMNO 
2 

1900 IIOFB DS 
2000 I* 1/0 FEEDBACK AREA VALUES 
2100 I *STATUS STS 
2200 I 401 404 MAJMIN 
2300 =I 401 402 MAJCOD 
2400 I 403 404 MINCOD 


Figure F-7 (Part 1 of 5). RPG/400 Inquiry Example — Source Program 
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5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCS 
SEQUENCE IND 
NUMBER Wels, sea L2, Sketathiaias ea Cissniasatad aia’ owt wince ers warbalan ad wna besos Onrsiencttenas Taare USE 

2600 C*-------------- ee ee ee ee ee ee ee ee eee 

2700 * EVOKE program 'ASYNCTCL' in library 'ASYNLIBRPG' on the Target 

2800 * system, using the user-id and password indicated by USRID and 

2900 *  USRPWD, respectively. The 'acquire' function is performed by 

3000 * the 'ACQPGMDEV' parameter specified in the ICF file. 

3100 *--------------------------------- 

3200 * Indicator 98 tells you whether the WRITE command completed 

3300 * successfully. (OFF means the command completed successfully.) 

3400 *--------------------------------- 

3500 = * 

3600 C MOVEL'CMNFILS' ID 

3700 C MOVELTARGET,3 PGM Target Program 

3800 C MOVELTARGET,4 LIB Target Library 

3900 C MOVELTARGET,1 USRID Target User-ID 

4000 C MOVELTARGET,2 USRPWD Target Password 

4100 C WRITEEVOKE 98 DO THE EVOKE 2 

4200 C 98 TIME TIME 60 GET TIME SENT 

4300 C 98 MOVELFILERR,1 PART1 66 

4400 C 98 MOVELFILERR,2 PART2 66 

4500 C 98 MAJCOD CABGE' ' ERROR 

4600 C 98 MAJCOD CABGE'03' ERROR 

4700 * 

4800 C REQST TAG 

4900 * 

5000 * ---------- - ee eee ee ee ee ee ee ee ee eee 

5100 * THE FOLLOWING IS THE ARRAY PROCESSING THAT IS USED TO SIMULATE 

5200 * READING A DATA BASE OR DISPLAY FILE TO GET THE ITEM NUMBER TO 

5300 * SEND TO THE TARGET SYSTEM. 

5400 *----------------------- 5 - ee ee ee ee 

5500 * 

14] 

5600 C xX CABGE20 LAST LAST ELEMENT? 

5700 C ADD 1 xX 20 

5800 C MOVE ITM#,X ITMNO ITEM NUMBER 

5900 * 

6000 *------------ ee ee ee ee ee ee ee ee eee ee 

6100 * THIS WRITE WILL SEND THE ITEM NUMBER (ITMNO) TO THE TARGET 

6200 * SYSTEM AND THEN INVITE IT TO SEND. 

6300 *------------ ee ee ee ee ee eee ee ee ---- 

6400 * Indicator 98 tells you whether the WRITE command completed 

6500 * successfully. (OFF means the command completed successfully.) 

6600 *-------------- ee ee ee eee eee ee eee ee 

6700 * 

5 | 

6800 C WRITEITMREQ 98 SEND W/INVITE 2 

6900 C TIME TIME 60 GET TIME SENT 

7000 C 98 MOVELFILERR,5 PART1 66 

7100 C 98 MOVEL*BLANKS PART2 66 

7200 C 98 MAJCOD CABGE' ' ERROR 

7300 C 98 MAJCOD CABGE'03' ERROR 

7400 C EXCPTREQ PRINT LOG 

7500 * 

7600 * -------- - ee ee ee ee ee ee ee ee ee ee ee ee 

7700 * THIS READ-FROM-INVITED-DEVICES IS TO RECEIVE THE ITEM 
5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCS 
SEQUENCE IND 
NUMBER Kaede cathy Oe wins sedans vat ewacbeanleta sO ectneche Gar Oate ecthietee tence “USE 

7800 * DESCRIPTION AND QUANTITY. USING A READ-FROM-INVITED-DEVICES (ON 

7900 * THE TIME VALUE SPECIFIED ON THE WAITRCD PARAMETER) PREVENTS 

8000 * WAITING INDEFINITELY ON THE READ STATEMENT. THE 'READ' 

8100 * STATEMENT REFERENCES THE FILE NAME 'CMNFILS' TO BE ABLE TO 

8200 * DOA 'READ-FROM-INVITED-DEVICES' WHICH IS REQUIRED TO GET 

8300 * THE TIMER TO INTERRUPT THE 'READ'. SINCE RECORD-IDENTIFYING 

8400 * CHARACTERS WERE NOT USED FOR THE FORMATS IN THE FILE, 

8500 * THE 'ITMREC' FORMAT WAS PLACED FIRST IN THE FILE AND WILL 

8600 * RECEIVE THE INPUT FROM 'READ CMNFILS'STATEMENT. 

8700 *----------- ee ee ee ee ee er ee ee ee eee ee 

8800 * Indicator 10 tells you whether you have reached the end of the 

8900 « file (EOF). (ON means EOF has been reached.) 


Figure F-7 (Part 2 of 5). RPG/400 Inquiry Example — Source Program 


DO 
NUM 


12/14/90 09:48:48 
LAST PAGE 
UPDATE LINE 


2/11/90 
2/11/90 
2/11/90 
2/11/90 


2/13/90 
2/13/90 
2/13/90 


2/12/90 
2/12/90 
2/12/90 
2/12/90 


2/13/90 
2/13/90 
2/13/90 
2/13/90 


12/13/90 


12/13/90 
12/13/90 
12/13/90 


12/13/90 
12/13/90 
12/13/90 


12/11/90 

12/14/90 09:48:48 
LAST PAGE 
UPDATE LINE 
12/11/90 

12/11/90 


12/11/90 


12/13/90 
12/13/90 
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Page 
PROGRAM 
ID 


Page 
PROGRAM 
ID 


F-19 


9100 * Indicator 98 tells you whether the READ command completed 
(OFF means the command completed successfully.) 


9200 * successfully. 


a3 


IND 
USE 


9300 *----------- eee ee ee ee ee er ee ee ee ee ee 
9400 * 
6] 
9500 C READ CMNFILS 9810 
9600 C TIME TIME GET TIME RECVD 
9700 C MOVEL*BLANKS PART2 66 
9800 C 98 MOVELFILERR,3 PART1 66 
9900 C 98 10 MOVELFILERR,4 PART2 66 
0000 C N98 10 MOVELFILERR,4 PART1 66 
0100 C 0 GOTO ERROR 
0200 C 98 MAJMIN CABGE'0310' ERROR CK INCL TIMER 
0300 C EXCPTRECVD 
0400 C GOTO REQST 
5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCS 
SEQUENCE 
NUMBER Filced auetanre slay a tee esOke ve thee ces thaws Okabe Oe alee haeynd eae ® 
0600 *------------- ee ee ee ee ee ee ee eee --- 
0700 * THIS SECTION WILL SEND A DUMMY 'ITMNO' OF '99999' TO THE TARGET 
0800 * PROGRAM TO INDICATE THE END OF THE TRANSACTIONS. 
0900 *-------------- ee ee ee ee ee ee ee ee --- 
1000 »* Indicator 98 tells you whether the WRITE command completed 
1100 »* successfully. (OFF means the command completed successfully.) 
1200 * ----------------------------- ee ee 
1300 * 
1400 C LAST TAG 
1500 C MOVE '99999' ITMNO ITMNO = 99999 
1600 C WRITEITMREQ 98 SEND LAST REC 
1700 C TIME TIME GET TIME SENT 
1800 C 98 MOVELFILERR,6 PART1 66 
1900 C 98 MOVEL*BLANKS PART2 66 
2000 C 98 MAJCOD CABGE' ' ERROR CK FOR ERROR 
2100 C 98 MAJCOD CABGE'03' ERROR CK FOR ERROR 
2200 C EXCPTREQ 
2300 C GOTO END 
2400 * 
2500 *--------------------------------- 
2600 * ERROR OCCURRED. PRINT THE MAJOR/MINOR RETURN CODES. 
2700 *--------------------------------- 
2800 * 
8 
2900 C ERROR TAG 
3000 = * 
3100 C 10 
3200 COR 98 EXCPTERRDSC ERROR DESCRIPTN 
3300 = * 
3400 C EXCPTERR 
3500 = * 
3600 *----------- ee ee ee er ee ee ee ee ee ee eee 
3700 * END-OF-JOB. SETON 'LR' INDICATOR. 
3800 *----------- ee ee ee ee ee ee ee ee eee eee 
3900 = * 
19 
4000 C END TAG 
4100 C SETON LR 
4200 C RETRN 


Figure F-7 (Part 3 of 5). 
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DO 
NUM 


12/13/90 
12/13/90 
12/13/90 
12/13/90 


12/13/90 
12/13/90 
12/13/90 
12/13/90 
12/13/90 


12/14/90 
LAST 
UPDATE 


12/13/90 
12/13/90 
12/13/90 


12/13/90 
12/13/90 
12/13/90 


12/13/90 
12/13/90 
12/13/90 
12/13/90 


09:48:48 
PAGE 
LINE 


Page 
PROGRAM 
ID 
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SEQUENCE 
NUMBER 

4400 
4500 
4600 
4700 
4800 
4900 


30 


DO00000 
DeG0001 
Dee0002 
D000003 
DeG0004 
E000000 
E000001 


IBM AS/400 RPG/400 


Ox --------- * 
* PRINT HEADINGS * 
kee ee ee eee * 
OQPRINT H 301 1P 
0 OR OF 
0 22 'SOU 
0 UDATE Y 35 
0 110 'PAG 
0 PAGE J 116 
0 130 'ASY 
ee * 
* PRINT REQUEST TRANSACTION * 
kee eee ee ee eee --* 
0 EF 1 REQ 
0 18 ‘ITE 
0 ITMNO 25 
0 90 'TIM 
0 TIME 99° "0! 
0 130 'ASY 
ed ---* 
* PRINT RECEIVED TRANSACTION * 
kee eee ee ee ee ee ee * 
0 EE «2 RECVD 
0 22 'REC 
0 32 'ITM 
0 ITMDSC 58 
0 68 'ITM 
0 ITMQTYJ 76 
0 90 'TIM 
0 TIME 99 ' Olas 
0 130 'ASY 
a * 
* PRINT ERROR DESCRIPTIONS * 
ee * 
0 EF 1 ERRDSC 
0 PART1 66 
0 PART2 132 
ee * 
* PRINT MAJOR/MINOR RETURN CODES * 
kee eee ee ee ee ee eee * 
0 EF 2 ERR 
0 24 'MAJ 
0 MAJCOD 27 
0 28 '/' 
0 MINCOD 30 
0 40 'STA 
0 STS 46 
0 52 'ID 
0 80 'JOB 
0 90 'TIM 
0 TIME 99 '0: 
0 130 'ASY 
OUTPUT FIELDS FOR RECORD EVOKE FILE CMNFIL 
PGM 10 CHA 
LIB 20 CHAI 
USRID 30 CHAI 
USRPWD 40 CHAI 
OUTPUT FIELDS FOR RECORD ITMREQ FILE CMNFI 
ITMNO 5 CHAI 
x**e*e* * END OF SOURCE ** 


Additional Diagnostic 


ASYNLIBRPG/ASYNCS 
IND DO 
Sei cet Geese con® USE NUM 


RCE TRANSACTION LOG' 
E! 


NCS' 


M NUMBER SENT -' 


FE -! 


NCS' 


EIVED FROM TARGET :' 
DSC -' 


QTY -' 


E-! 


NCS' 


OR/MINOR RETURN CODE: 


TUS -' 


ENDED ' 

E-! 
NCS' 
S FORMAT EVOKE. 
R10 

R10 

R10 

R10 

LS FORMAT ITMREQ. 
R 5 

tee He 


Messages 


Figure F-7 (Part 4 of 5). RPG/400 Inquiry Example — Source Program 


12/14/90 
LAST 
UPDATE 


12/14/90 
12/14/90 


12/13/90 
12/13/90 
12/13/90 
12/13/90 
12/13/90 
12/13/90 


09:48:48 Page 6 
PAGE PROGRAM 
LINE ID 
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5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 
SEQUENCE 


ASYNLIBRPG/ASYNCS 12/14/90 09:48:48 Page 7 
LAST 


NUMBER Wace toate ldareahiae a Dewees 8a de bie ties ehhoaies teen Os sles tenis TOs aude set te 68 UPDATE 


Compile-Time Tables 


Table/Array ...... : TARGET 


19800 ASYNCUSR /* Target System: 
19900 ASYNCPWD /* Target System: 
20000 ASYNCTCL /* Target System: 
20100 ASYNLIBRPG /* Target System: 


Table/Array ...... 3:  FILERR 


20300 Error occurred when issuing the initial WRITE. 


User-ID */ 2/12/90 
Password */ 2/12/90 
Program name */ 2/12/90 
Library name */ 2/12/90 


The ICF file may h 2/13/90 


20400 ave been created without the proper value for ACQPGMDEV parameter. 2/13/90 
20500 Error occurred when issuing the READ CMNFILT command. ... ... 2/13/90 


20600 EOF is indicated. (Has the CMNFILS been ACQUIREd?) 


2/13/90 


20700 Error occurred when issuing the WRITE ITMREQ command. 2/13/90 
20800 Error occurred when issuing the Last WRITE ITMREQ command. 2/13/90 


Table/Array ......:  ITM# 
21000 00001 
21100 00002 
21200 00003 
21300 00004 
21400 00005 
21500 00006 
21600 00007 
21700 00008 
21800 00009 
21900 00010 
22000 00011 
22100 00012 
22200 00013 
22300 00014 
22400 00015 
22500 00016 
22600 00017 
22700 00018 
22800 00019 
22900 00020 
5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 
Final Summary 
No errors found in source program. 
Program Source Totals: 


RECOrdS. vice ee eee we are a 229) 
Specifications .. 42. .% Jol 
Table Records .......: 30 
Comments .........: £92 


PRM has been called. 


ASYNLIBRPG/ASYNCS 12/14/90 09:48:48 Page 8 


Program ASYNCS is placed in library ASYNLIBRPG. 00 highest Error-Severity-Code. 


xx*e** END OF COMPILATION 


x kK KK * 


Figure F-7 (Part 5 of 5). RPG/400 Inquiry Example — Source Program 


RPG/400 Target Program: The following describes an QPRINT = An AS/400 printer file that is used to print 


RPG/400 asynchronous target program. 


records, both sent and received, as well as 
major and minor ICF return codes. 


Program Files: The RPG/400 target program uses the fol- 


lowing files: 


CMNFILR_ An ICF file used to send records to and receive 


records from the source program. 


DDS Source: The following example shows the DDS 
keywords that are used in the ICF file. (QPRINT is a 
program-described file; no DDS is required.) 
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100 Ak * kk KK KK OK OK RK KK KK KK KK KK KK KK KK KK KK KK 
200 Ax 
300 Ax ICF communications file used by the Target System to * 
400 Ax receive/send interactively with the Source System. * 
500 Ax * 
600 Ak * kk KK OK KK OK KK KK KK KK KK KK KK KK KK KK KKK 
700 Ax 
800 A R ITMREQ 
900 A ITMNO 5A 
1000 Ax 
1100 A R ITMREC 
1200 A INVITE 
1300 A ITMDSC 25A 
1400 A ITMQTY 5S 
1500 Ax 
1600 A R INVITE 
1700 A INVITE 
e**e ee * END OF SOURCE ** * * 


5738SS1 V2RIMO 910524 Data Description ASYNLIBRPG/CMNFILT 12/14/90 9:49:01 Page 2 
Expanded Source 
Field Buffer position 
SEQNBR: #aSscts cele watwarw2 wears ea cals saabea edna ache aa seisis Palen Oaasaach ewe 7....+....8 length Out In 
800 R ITMREQ 
900 ITMNO 5A B 5 1 1 
1100 R ITMREC INVITE 
1300 ITMDSC 25A B 25 1 1 
1400 ITMQTY 5S 0B 5 26 26 
1600 R INVITE INVITE 
**e**** END OF EXPANDED SOURCE ** * * * 
5738SS1 V2R1MO 910524 Data Description ASYNLIBRPG/CMNFILT 12/14/90 9:49:01 Page 3 
Message Summary 
Total Informationa Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 0 0 
* CPC7301 00 Message... .: File CMNFILT created in library ASYNLIBRPG. 


tee ee OE ND OF 


COMPILATION 


Figure F-8. DDS Source for ICF File CMNFILT, RPG/400 Target Program 


ICF File Creation and Program Device Entry Definition: 
The command needed to create the ICF file is: 


CRTICFF — FILE(ASYNLIBRPG/CMNFILT) 
SRCFILE (ASYNLIBRPG/QDDSSRC) 
ACQPGMDEV (CMNFILT) 
MAXPGMDEV(2) WAITRCD(30) 


The following command is needed to define the program 
device entry: 


OVRICFDEVE PGMDEV (CMNFILT) 
RMTLOCNAME (*REQUESTER) 


Program Explanation 
The following describes the structure of the program 
example shown in Figure F-9 on page F-24. The ICF 
file used in this example uses externally described data 
formats (DDS) defined by the user. The reference 
letters in the figure correspond to those in the following 
program. 


EF¥_ This section identifies the files used in the program. 
CMNFILT is the ICF file used to send/receive records 
to and from the source program. 


The files used in the program are opened at the begin- 
ning of the RPG cycle and the ICF program device is 
implicitly acquired because the ACQPGMDEV param- 
eter was specified on the CRTICFF command. 


EZ _sIOFB is the name of the file information data structure 
(INFDS) used with CMNFILT. It contains the following 
information: 


kk KKK 


e File status (STS) 
e Major/minor return code 
(MAJMIN,MAJCOD,MINCOD) 


A read-from-invited-program-devices operation is per- 
formed to receive data from the source program and 
will continue to wait for data until data is received or 
the timer value, specified in the WAITRCD parameter 
of the CRTICFF command, is exceeded. Using a read- 
from-invited-program-devices operation and the 
WAITRCD parameter prevents the target program from 
waiting indefinitely if no data is available. 


This section checks the ITMNO field for the value 
99999 that indicates the end of transaction. When 
99999 is received, the session ends; otherwise, the 
item corresponding to the value sent from the source 
program is accessed in the arrays ITMDES and 
ITMQNT, and placed in the fields ITMDSC and 
ITMQTY. 


Item information is retrieved and sent to the source 
program. 


If an error occurs, the session ends. 


The program ends by setting the last run indicator (LR) 
to ON and returning to the program that called the 
program. The ICF file is closed, and the session ends 
at the end of the RPG/400 cycle. 
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5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCT 12/14/90 09:49:02 Page 
Compiler. ........ 2.4... : IBM AS/400 RPG/400 
Command Options: 
Program 26.50.98 Arve eee Mae arts ASYNLIBRPG/ASYNCT 
Source file .......... :  ASYNLIBRPG/QRPGSRC 
Source member .......2..3: *PGM 
Source listing options. ....: *SOURCE *XREF *GEN *NODUMP *NOSECLVL 
Generation options. ...... :  *NOLIST *NOXREF *NOATR *NODUMP *NOOPTIMIZE 
Source listing indentation . ..:  »*NONE 
SAAT aggING 2. See eee eta: ace *NOFLAG 
Generation severity level ...: 9 
PRINE-TH6 4 a Ghee oe we 8 *LIBL/QSYSPRT 
Replace program ..... 2... *YES 
Target release... ...... : =  *CURRENT 
USer profile <5 4 ane ea eS *USER 
AUthOrity 08. eee ce a a we a *LIBCRTAUT 
TORE. Shi ser ar Wo cao gae ee? wer er We wee) SREMBRIXT 
Phase trace ..........2.: *NO 
Intermediate text dump... ..: *NONE 
Snap dump ........... :  *NONE 
Codelist t.celk Phas nk Bae S *NONE 
Ignore decimal data error *NO 
Actual Program Source: 
MEMbEP 00 gisele, Beles 'e ae we aed ASYNCT 
FPN Gy: vies ep nar Wa eercer ia wes wap aa aga QRPGSRC 
Library ............ :  ASYNLIBRPG 
hast. Change! 2:20 a- 1 Sate fee cee 8 12/14/90 09:48:24 
Description .......... : Target System's RPG program example (source code). 
5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCT 12/14/90 09:49:02 Page 
SEQUENCE IND DO LAST PAGE PROGRAM 
NUMBER Wave Ly steers eCatave ats anne sot waedaes kaa Daca Oe ae ahs aumhe aoe «USE NUM ~~ UPDATE LINE ID 
Source Listing 
100 H ASYNCT 
200 *--------------------------------- 
300 * THIS IS THE TARGET PROGRAM THAT WILL PERFORM THE INTERACTIVE 
400 »*  RECEIVE/SEND FUNCTION WITH THE SOURCE SYSTEM'S PROGRAM. IT WILL 
500 * ALSO USE ARRAYS TO SIMULATE THE RETRIEVAL OF DATA FROM A DATA 
600 * BASE FILE. IT USES THE 'ITMNO' SENT FROM THE SOURCE SYSTEM AS 
700  * THE INDEX FOR THE ARRAYS TO RETRIEVE THE APPROPRIATE ITEM 
800 »* DESCRIPTION AND QUANTITY. 
900 *--------- eee ee ee ee ee ee eee ee ee ee ee 
1000 Fx 
1100 FCMNFILT CF E WORKSTN 
1200 F KINFDS IOFB 
1300 F KNUM 1 
1400 F KID ID 
RECORD FORMAT(S): LIBRARY ASYNLIBRPG FILE CMNFILT. 
EXTERNAL FORMAT ITMREQ RPG NAME ITMREQ 
EXTERNAL FORMAT ITMREC RPG NAME ITMREC 
EXTERNAL FORMAT INVITE RPG NAME INVITE 
1500 FQPRINT O F 132 OF PRINTER 
1600 E* ARRAYS 
1700 E FILERR 1 5 66 File Error Msgs. 
1800 E ITMERR 1 2 25 Item # Error Msgs 
1900 E ITMDES 1 20 25 Item Description 
2000 E ITMQNT 1 20 50 ITEM QUANTITY 
AQQQ000 ~=69INPUT FIELDS FOR RECORD ITMREQ FILE CMNFILT FORMAT ITMREQ. 
A000001 1 5 ITMNO 
BOOO@OO = INPUT FIELDS FOR RECORD ITMREC FILE CMNFILT FORMAT ITMREC. 
BO00001 1 25 ITMDSC 
Bo00002 26 300I1TMQTY 
C000000 = INPUT FIELDS FOR RECORD INVITE FILE CMNFILT FORMAT INVITE. 
* 
2100 IIOFB DS 
2200 I* 1/0 FEEDBACK AREA 
2300 I *STATUS STS 
2400 I 401 404 MAJMIN 
2500 I 401 402 MAJCOD 
2600 I 403 404 MINCOD 


Figure F-9 (Part 1 of 5). RPG/400 Inquiry Example — Target Program 
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5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCT 
SEQUENCE IND DO 
NUMBER Res Vey CPO ie uke We ee VON WO ea cee aie ba os eee) ca ® NSE NUM 

2800 Cx 

2900 *--------------------------------- 

3000 * THIS 'WRITE' STATEMENT IS TO ISSUE AN 'INVITE' SO THAT THE 

3100 *  'READ' THAT FOLLOWS WILL HAVE AN OUTSTANDING 'INVITE' AND WILL 

3200 * FUNCTION AS A 'READ-FROM-INVITED-DEVICES' STATEMENT. 

3300 *---------- ee ee ee er ee ee ee ee ee ee ee ee 

3400 * Indicator 98 tells you whether the WRITE command completed 

3500 * successfully. (OFF means the command completed successfully.) 

3600 *---------- - ee ee ee ee eee er ee ee ee ee ee 

3700 * 

3800 C WRITEINVITE 98 2 

3900 * 

4000 C 98 TIME TIME 60 GET TIME RECVD 

4100 C 98 MOVELFILERR,1 PART1 66 

4200 C 98 MOVELFILERR,2 PART2 66 

4300 C 98 GOTO ERROR 

4400 * 

4500 *--------------------------------- 

4600 * THIS READ-FROM-INVITED-DEVICES IS TO RECEIVE THE 'ITMNO FROM THE 

4700 ~* VALUE SPECIFIED ON THE WAITRCD PARAMETER OF THE ICF FILE) 

4800 *  PREVENTS WAITING INDEFINITELY ON THE 'READ' STATEMENT. 

4900 * THE READ STATEMENT REFERENCES THE FILE NAME 'CMNFILS' TO BE ABLE 

5000 * TO DO A 'READ-FROM-INVITED-DEVICES' WHICH IS REQUIRED TO GET THE 

5100 * TIMER TO INTERRUPT THE 'READ'. UPON SUCCESSFUL COMPLETION, THE 

5200 * 'READ' WILL PUT THE DATA INTO THE FIRST FORMAT IN THE ICF FILE 

5300 * SINCE NO RECORD-IDENTIFYING CODES WERE USED FOR THE FORMATS ON 

5400 * THE INPUT SPECIFICATIONS. 

5500  *------------- - ee ee ee ee ee ee eee ee ee 

5600 * Indicator 10 tells you whether you have reached the end of the 

5700 file (EOF). (ON means EOF has been reached.) 

5800 *-------- - ee ee ee ee eee eee ee ee ee ee ee 

5900 * Indicator 98 tells you whether the READ command completed 

6000 * successfully. (OFF means the command completed successfully.) 

6100 *--------------------------------- 

6200 * 

6300 C NXTREC TAG 

6400 C READ CMNFILT 9810 2 3 

6500 C TIME TIME 60 GET TIME RECVD 

6600 C MOVE *BLANKS  PART2 66 

6700 C 98 MOVELFILERR,3 PART1 66 

6800 C 98 10 MOVELFILERR,4 PART2 66 

6900 C N98 10 MOVELFILERR,4 PART1 66 

7000 C 10 GOTO ERROR 

7100 C 98 MAJMIN CABGE'0310' ERROR CK INCL TIMER 

7200 C EXCPTRECVD PRINT RECVD LOG 

7300 * 

7400 * ------------------- - ee eee ee ee ee ee 

7500 * THIS IS THE ROUTINE TO CHECK THE 'ITMNO' FIELD FOR '99999' THAT 

7600 * INDICATES THAT THE SOURCE SYSTEM HAS NO MORE REQUESTS. IF NOT 

7700 * THE END, THEN THE ARRAYS ARE PROCESSED TO RETRIEVE THE ITEM 

7800 * DESCRIPTION AND QUANTITY TO BE SENT BACK TO THE SOURCE SYSTEM. 

7900 *-------- 2 ee ee ee ee ee ee ee ee ee ee ee ee 
5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCT 
SEQUENCE IND DO 
NUMBER Myce Levee Cent Vase ed 5 V8 05 Fk eens ata es8 ott eee Se aA NSE NUM 

8000 * If the 'ITMNO' is not within the acceptable values for the 

8100 * array index, the item number is placed in the quantity field 

8200 * and an error meesage is placed in the description field. 

8300 *----------- ee ee ee ee ee ee ee ee ee ee ee 

8400 * 

14] 

8500 C ITMNO CABEQ'99999' ~— END 

8600 C MOVE ITMNO X 20 

8700 * 

8800 C xX IFGT 00 IF X > 0 BOO1 

8900 C Xx IFLE 20 IF X <= 20 B002 

9000 C MOVE ITMDES,X ITMDSC 002 

9100 C MOVE ITMQNT,X ITMQTY 002 

9200 C ELSE IF X <=20 ELSE X002 

9300 C MOVE ITMERR,2 ITMDSC 002 

9400 C MOVE X ITMQTY 002 

9500 C ENDIF END: IF X <= 20 E002 

9600 C ELSE IF X > @ ELSE X001 

9700 C MOVE ITMERR,1 ITMDSC 001 

9800 C MOVE X ITMQTY 001 

9900 C ENDIF END: IF X > 0 E001 

10000 = * 


Figure F-9 (Part 2 of 5). RPG/400 Inquiry Example — Target Program 


12/14/90 09:49:02 Page 3 
LAST PAGE PROGRAM 
UPDATE LINE ID 
12/14/90 09:49:02 Page 4 
LAST PAGE PROGRAM 
UPDATE LINE ID 
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WRITE THE 'ITMREC' FORMAT THAT WILL SEND THE ITEM DESCRIPTION 
AND QUANTITY TO THE SOURCE SYSTEM AND INVITE IT TO SEND. 
Indicator 98 tells you whether the WRITE command completed 
successfully. (OFF means the command completed successfully.) 


WRITEITMREC 98 2 
TIME TIME 60 GET TIME SENT 

98 MOVELFILERR,5 PART1 66 

98 MOVE *BLANKS  PART2 66 

98 MAJCOD CABEQ' ' ERROR CK FOR ERROR 

98 MAJCOD CABGE'03' ERROR CK FOR ERROR 
EXCPTSENT PRINT SENT LOG 
GOTO NXTREC 


AaQAaAaanaaana 
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¢ ERROR TAG 


COR 98 EXCPTERRDSC ERROR DESCRIPTN 
C EXCPTERR 


*  END-OF-JOB. TURN ON THE 'LR' INDICATOR. 


C END TAG 
C SETON LR 1 


5738RG1 V2R1IMO 910524 IBM AS/400 RPG/400 ASYNLIBRPG/ASYNCT 12/14/90 


SEQUENCE 
NUMBER 


IND DO LAST 
USE NUM UPDATE 


OQPRINT H 301 1P 
OR OF 


0 
0 
0 
0 
0 60 
0 
0 
0 
0 


22 ‘TARGET TRANSACTION LOG' 
UDATE Y 60 

110 'PAGE' 
PAGE J 116 

130 'ASYNCT' 


oooo°co 


22 'ITEM NUMBER RECEIVED - 


90 ‘TIME -' 
TIME Bo Oe cf ot 
130 'ASYNCT' 


ooooco 


16 'SENT TO SOURCE :' 
25 'ITMDSC -' 
ITMDSC 51 
"ITMQTY -' 
ITMQTYJ 69 
90 ‘TIME -' 
TIME ie eee 
130 'ASYNCT' 


0 EF 1 ERRDSC 
0 PART1 66 
0 PART2 132 


Figure F-9 (Part 3 of 5). RPG/400 Inquiry Example — Target Program 
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09:49:02 
PAGE 
LINE 


Page 
PROGRAM 
ID 


DO0e000 
DeG0001 
Dee0002 
E000000 


SEQUENCE 
NUMBER 


Table/Array 


8800 
8900 
9000 
9100 
9200 


Table/Array 


9400 
9500 


Table/Array 


9700 
9800 
9900 
20000 
20100 
20200 
20300 
20400 
20500 
20600 
20700 
20800 
20900 
21000 
21100 
21200 
21300 
21400 
21500 
21600 


Additional 
5738RG1 V2RIMO 910524 


24 'MAJOR/MINOR RETURN CODE: 


kee ee ee eee ee eee ee * 

* PRINT MAJOR/MINOR RETURN CODES * 

ee ee ee ee eee eee ee * 
0 EF 2 ERR 
0 
0 MAJCOD 27 
0 28 '/' 
0 MINCOD 30 
0 40 ‘STATUS -' 
0 STS 46 
0 52 'ID -' 
0 ID 63 
0 80 'JOB ENDED' 
0 90 ‘TIME -' 
0 TIME 99° Ost 
0 130 'ASYNCT' 

OUTPUT FIELDS FOR RECORD ITMREC FILE CMNFILT FORMAT ITMREC. 

ITMDSC 25 CHAR 25 
ITMQTY 30 ZONE 5,0 
OUTPUT FIELDS FOR RECORD INVITE FILE CMNFILT FORMAT INVITE. 


x**e**e** END OF SOURCE 
Diagnostic 


IBM AS/400 RPG/400 


kk kK KK 


Compile-Time Tables 
FILERR 


Error occurred when issuing the initial WRITE. 


Messages 


ASYNLIBRPG/ASYNCT 


The ICF file may h 


ave been created without the proper value for ACQPGMDEV parameter. 


Error occurred when issuing the READ CMNFILT command. 


EOF is indicated. (Has the CMNFILT been ACQUIREd?) 


Error occurred when issuing the WRITE ITMREC command. 


ITMERR 
ITEM NUMBER MUST BE > 00. 
ITEM NUMBER MUST BE < 21. 
ITMDES 
HERE HAS TO BE A FIRST 
NYONE WANT SECONDS? 
HREE'S A CROWD 
OURTH DOWN 
LEAD THE FIFTH 
IXTH SENSE 
EVENTH HEAVEN 
T IS ENOUGH 
AT WITH NINE LIVES 
HE TEN COMMANDMENTS 
HE 11TH OF MARCH 
HEAPER BY THE DOZEN 
AKER'S DOZEN 
FOURTEENTH OF JUNE 
EEN FRENCH HORNS 
SWEET SIXTEEN AND ??? 
SOUR SEVENTEEN 
GRADUATE AT EIGHTEEN 
FRESHMAN AGAIN AT 19 
THE 20TH CENTURY 


ip) 
=x 


AaAgAROMNNITTMALSH$A 


Figure F-9 (Part 4 of 5). RPG/400 Inquiry Example — Target Program 
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LAST 
UPDATE 
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Table/Array ...... 3:  ITMQNT 

21800 00951 

21900 00375 

22000 00200 

22100 01027 

22200 00056 

22300 00450 

22400 05798 

22500 07731 

22600 09843 

22700 76360 

22800 01259 

22900 08399 

23000 00087 

23100 12004 

23200 00038 

23300 03867 

23400 18503 

23500 87370 

23600 26589 

23700 58217 
5738RG1 V2RIMO 910524 IBM AS/400 RPG/400 

Final Summary 

No errors found in source program. 
Program Source Totals: 


RECOPAS. si cso ee See ay one 237 
Specifications ......: 96 
Table Records .......: £447 
Comments .........: £488 


PRM has been called. 


ASYNLIBRPG/ASYNCT 


Program ASYNCT is placed in library ASYNLIBRPG. 00 highest Error-Severity-Code. 


xx*** END OF COMPILATION 


x kK KK * 


Figure F-9 (Part 5 of 5). RPG/400 Inquiry Example — Target Program 
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ILE C/400 Program Examples 


The ILE C/400 source program starts a session with a 
remote location and issues an evoke function, with no invite, 
to start the target program. The source program sends item 
numbers to the target program and then waits 30 seconds 
(the value specified by the WAITRCD parameter on the 
CRTICFF command) to receive an acknowledgment from the 
target program indicating that the evoke function completed 
successfully. If the source program receives a major return 
code equal to or greater than 03, the program goes to end- 
of-job. 


In the following sample programs, the source program sends 
an item number to the target program requesting item infor- 
mation. The target program then sends the item information 
(description and quantity) to the source program. The source 
program sends the value 99999 to the target program, to 
indicate end-of-transaction. At this point, both programs go 
to end-of-job. 


ILE C/400 Program Descriptions 


The following information describes the structure of the 
example programs in Figure F-11 on page F-32 and 
Figure F-13 on page F-40. The reference numbers in the 
figures correspond to those in the descriptions. 


ILE C/400 Source Program: The following describes 
the C/400 inquiry program that runs on the local system. 


Program Files: The ILE C/400 source program uses the 


following files: 


ASYNICF An ICF file used to send records to and receive 
records from the target program. 
QPRINT = An AS/400 printer file that is used to print 


records, both sent and received, as well as 
major and minor ICF return codes. 


DDS Source: The DDS used in the ICF file is shown in 
Figure F-10 on page F-30. QSYSPRT is a program- 
described file and does not require DDS. 
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SEQNBR: =: #. vatican ti wel aoithens ee Siw t ten cA tiie. Deen cts, se Ocnest ines hevestiee. 8 ‘Date 
100 [RR KKKK EK KKK EKER ERE KK EKER EK EKER EKER ERE KER KEK ERE KERR RR ER ER ERAEREKRERE 
200 Ax * 
300 Ax ICF communications file used by the Source System to * 
400 Ax send/receive interactively with the Target System. * 
500 Ax * 
600 BRR KKKKEKR KK KEKR EKER ERK EKER EK ERE KKK KEK ERE RRR EK ERE KERR RR ER ER ERAERKRERE 
700 Ax 
800 A R ITMREC 
900 A ITMDSC 25A 
1000 A ITMQTY 5S 
1100 Ax 
1200 A R EVOKE 
1300 A EVOKE (&LIB/&PGM) 
1400 A SECURITY( 2 &USRPWD + 
1500 A 3 &USRID) 
1600 Ax * & KK KR RK KK KK KK KK KK KK KK KK KK KK KK KKK 
1700 Ax * 
1800 Ax »* The data placed in USERID and USRPWD must correspond to * 
1900 Ax a user profile and password, respectively, on the Target * 
2000 Ax System. * 
2100 Ax * 
2200 Ax »* The user in USRID must have authority to the device * 
2300 Ax object (device description) being used on the Target * 
2400 Ax System, as well as to the program and library indicated * 
2500 Ax in PGM and LIB, respectively. * 
2600 Ax * 
2700 Ak * & KK KR KK KK KK KK KK KK KK KKK KK KK KK KKK 
2800 A PGM 10A_ P 
2900 A LIB 10A_ P 
3000 A USRID 10A_ P 
3100 A USRPWD 10A_ P 
3200 Ax 
3300 A R ITMREQ 
3400 A INVITE 
3500 A ITMNO 5A 
**e*e*e*e END OF SOURCE ** * * * 
5763SS1 V3R1IMO0 910524 Data Description ASYNLIBC/ASYNICF 
Expanded Source 
Field 
SEQNBR... #35... veliscetieein2s tte cesstead eee Penns eects rc O toes Pe vis beeen 8) length 
800 R ITMREC 
900 ITMDSC 25A B 25 
1000 ITMQTY 5S QB 5 
1200 R EVOKE EVOKE(&LIB/&PGM) + 
1400 SECURITY( 2 &USRPWD 3 &USRID) 
2800 PGM 10A_ P 10 
2900 LIB 10A_ P 10 
3000 USRID 10A_ P 10 
3100 USRPWD 10A_ P 10 
3300 R ITMREQ INVITE 
3500 ITMNO 5A B 5 
ee *e*e** END OF EXPANDED SOURCE ** * * * 
5763SS1 V3R1IMO0 910524 Data Description ASYNLIBC/ASYNICF 
Message Summary 
Total Informational Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 0 0 ) 
* CPC7301 00 Message . ... : File ASYNICF created in library ASYNLIBC. 


x*e ee * END OF COMPILATION ** * * * 


Figure F-10. DDS Source for ICF File ASYNICF, ILE C/400 Source Program 
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1/02/94 11:21:46 Page 
Buffer position 
Out In 
1 1 
26 26 
1 
11 
21 
31 
1 1 
1/02/94 11:21:46 Page 


ICF File Creation and Program Device Entry Definition: 
The following command is needed to create the ICF file: 


CRTICFF — FILE(ASYNLIBC/ASYNICF) 
SRCFILE (ASYNLIBC/QDDSSRC) 
ACQPGMDEV (*NONE) 
MAXPGMDEV(2) WAITRCD(30) 


The following commands are needed to define the program 
device entry and to direct the target program to the proper 
ICF file: 


OVRICFDEVE PGMDEV(ICF0O) 

RMTLOCNAME (*REQUESTER) 
FILE(ASYNICF) 
TOFILE(ASYNLIBC/ASYNICF) 


OVRICFF 


Print File Creation and Definition: lf the print file, 
QPRINT, does not already exist on the target system, it will 
need to be created before running the C/400 program 
example. The command needed to create the print file is: 


CRTPRTF FILE (ASYNLIBC/QPRINT) 
TEXT('Printer File for 
Asynchronous program examples.') 
REPLACE (*NO) 


The output queue, ASYNLIBC/ASYNC, is created by the 
command: 


CRTOUTQ OUTQ(ASYNLIBC/ASYNC) 
TEXT('Target System''s asynchronous 


ASYNC output queue. ') 


The following command is needed to direct the printer output 


to the proper print file and output queue: 


OVRPRTF — FILE(QPRINT) TOFILE(ASYNLIBC/QPRINT) 
OUTQ(ASYNLIBC/ASYNC) 


Program Explanation: The following describes the ILE 
C/400 source program. 


This section declares the structure for the record 
formats in the ICF file. CMNFILR is the name of the 
ICF file used to send records to and receive records 
from the target program. 


The files used in the program are opened at the begin- 
ning of the program and the ICF program device is 
explicitly acquired since the ACQPGMDEV parameter 
was specified as “NONE on the CRTICFF command. 


/ This section declares the structures for writing the fol- 
lowing information to the printer file, QPRINT: 


e Item number 

¢ Description 

¢ Quantity 

¢ Major/minor return code 
The routines are prototypes so the compiler knows the 
type of value returned and the type of parameters 
passed. 
This section opens the ICF file, ASYNICF, for 
input/output and the printer file, QPRINT, for output. 
This section sets the input/output feedback area pointer, 
and the program device, ICFO0, is explicitly acquired. 
The EVOKE_TARGET routine is called to start the 
target program. 


Twenty records are sent to the target system. 


Be 8  & 


Item number 99999 is sent to signify (to the target 
program) an end to the transaction with the target 
system. 


The CL program, ASYNCTCCL, is started and contains 
the following: 


ADDLIBLE —LIB(ASYNLIBC) 
OVRICFDEVE PGMDEV(ICFOO) RMTLOCNAME (*REQUESTER) 


OVRPRTF — FILE(QPRINT) TOFILE(ASYNLIBC/QPRINT) 
OUTQ(ASYNLIBC/ASYNC) 
CALL PGM(ASYNLIBC/ASYNCTC) 


The program device is retrieved from the input/output 
feedback area. 


Appendix F. Program Examples F-31 


[ke ee neon nnn nn nn nn nn nn en nn enn enn een ee ee nn ee eee */ 
/* This is an ICF send/receive program that uses an array (itm#) to */ 
/* simulate the retrieving of an item number from a data file and x/ 
/* then sends that item number to a target system in order to retrieve */ 
/* an item description and a quantity from the target system's data filex/ 
/* on a subsequent read to the ICF file. x/ 
[kaon nnn nnn no-no nn nn nn ne nn en en een ee ee ne ne ene eee */ 


#define NOERROR 0 
#define ERROR 1 


No error occured */ 
An error occured */ 


#include <recio.h> /* Record 1/0 header */ 
#include <stdio.h> /* Standard I/0 header */ 
#include <stddef.h> /* Standard definitions */ 
#include <stdlib.h> /* General utilities */ 
#include <string.h> /* String handling utilities */ 
#include <xxfdbk.h> /* Feedback area structures */ 
11] 
[kecen none eno eon nn nn nnn en en een ee ee nee eee */ 
/* Define the ICF file's structure. x/ 
[keoon none no-no nn nnn nen en ee een ee ee ene ee eee */ 
struct { 

char itmdsc??(25??); 

char itmqty??(5??); 
} itmrec_icf_i; 
struct { 

char pgm??(10??); /* Program Name on Target System */ 

char 1ib??(10??); /* Library Name on Target System */ 

char usr??(10??); /* User-ID on Target System */ 

char pwd??(10??); /* Password on Target System */ 
} evoke_icf_o; 
struct { 

char itmno??(5??); 
} itmreq_icf_o; 
2 | 
[keen n nnn nnn nn nn nnn en nn eon en een ee ee nee eee eee */ 
/* Define structures used to write to the print file. x/ 
[keno nnn nn nnn nen nn nn nn nn nn en nn een ee ee nn eee ee */ 
struct { 


char filler1??(37??); 
char filler2??(36??); 
} blank_line; 


struct { 
char report_type??(22??); /* Report Type (ie. Source Transaction Log ) */ 
char spaces??(15??); 
char main_title??(272?); /* Main Title */ 


char 
} heading_one; 


filler??(9??); 


struct { 
char spaces?? (37??); 
char sub_title??(27??); /* Sub-title */ 
char filler??(9??); 


} heading_two; 


struct { 
char pgmnam??(10??); /* Program Name */ 
char sndmsg??(30??); /* Send Message Title */ 


char itmnum??(05??); 
char filler??(28??); 
} send_message; 


/* 


Item Number */ 


struct { 
char pgmnam??(10??); /* Program Name */ 
char recmsg??(30??); /* Received Message Title */ 
char itmdsc??(25??); /* Item Description */ 


char spaces??(03??); 
char itmqty?? (0522); 
} receive_message; 
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/* Item Quantity */ 
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struct { 


char pgmnam??(10??); /* Program Name */ 

char rtnmsg??(30??); /* Return Code Message Title */ 

char major??(02??); /* Major Code */ 

char slash??(01??); /* slash */ 

char minor??(02??); /* Minor Code */ 

char spaces??(05??); 

char lparen??(01??); /* left parenthesis */ 

char pgmdev??(10??); /* Program Device, from feedback area */ 
char rparen??(01??); /* right parenthesis */ 


char filler??(11??); 
} return_code; 


struct { 
char endmsg??(37??); /* Ending Message Title */ 
char spaces??(21??); 
char rsnhdg??(9??); /* Reason Heading */ 
char reason??(06??); /* Reason (Normal or ERROR) */ 


} ending_message; 


[keen n nnn nnn en on nn nn on nn nn nn nn een en en nen ee eee */ 
/* Declare the array that contains the item numbers to be sent to the */ 
/* target system. */ 
[keene nnn nnn nnn nnn nn nn nn nn nn enn nn en nn ee nen eee nee */ 
static char *item??(20??) = {"00001", "00002", "00003", "00004", "Q0005", 
"00006", "00007", "0008", "00009", "00010", 
"00011", "90012", "00013", "00014", "00015", 
"00016", "00017", "00018", "00019", "00020" 
}s 
3 | 
int evoke_target(_RFILE *); 
int send_item_number(_RFILE *); 
int get_item_info(_RFILE *); 
int check_error(void) ; 
int check_timeout (void) ; 
void end_error(_RFILE *, RFILE *, XXIOFBT *); 
void initialize_print_fields(_RFILE *); 
void print_heading(_RFILE *); 
void print_request(_RFILE *); 
void print_received(_RFILE *); 
void print_error(_RFILE *, _XXIOFB_T *); 
main() 
{ 
_XXIOFB_T *comm_fdbk; /* Ptr to common 1/0 feedback */ 
_RFILE *icffptr; /* Ptr to ICF file */ 
_RFILE *prtfptr; /* Ptr to print file */ 
int is; 
| */ 
/* Open a binary file for input and output. Writes (output) to */ 
/* the file occur at the end of the file (append). */ 
[eee ee ee ee ee ee ee et ee ee ee ee ee eee eee */ 


if ((icffptr = Ropen("ASYNICF", “ar+")) == NULL) 


exit (ERROR) ; 
| | */ 
/* Create a binary file for writing or clear the existing file. */ 
[eee ee ee ee ee ee ee ee ee ee ee ee ee eee eee */ 


Figure F-11 (Part 2 of 6). ILE C/400 Inquiry Example — Source Program 
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/* Open printer file: */ 


/* Keyword parameter, type, must be "record". */ 
/* Keyword parameter, lrecl, is required for program-described +*/ 
/* printer files. */ 
[eee ee ee ee ee ee ee et ee ee ee ee ee ee ee ee */ 


if ((prtfptr = _Ropen("QPRINT", "wr Irecl=132")) == NULL) { 
_Rclose(icffptr) ; 
exit (ERROR) ; 


} 

initialize_print_fields(prtfptr) ; 
5 

comm_fdbk = _Riofbk(icffptr) ; 


_Racquire(icffptr, "ICFOO i 


if (check_error() == ERROR) { 
end_error(icffptr, prtfptr, comm_fdbk); 
exit (ERROR) ; 

} 

print_heading(prtfptr) ; 


if (evoke_target(icffptr) == ERROR) { 
end_error(icffptr, prtfptr, comm_fdbk); 
exit (ERROR) ; 


for (i = 0; i < 203; i++) { 
strncpy(itmreq_icf_o.itmno, item??(i??), 5); 
if (send_item_number(icffptr) == NOERROR) { 
print_request(prtfptr) ; 
if (get_item_info(icffptr) == NOERROR) 
print_received(prtfptr) ; 
else { 
end_error(icffptr, prtfptr, comm_fdbk); 
exit (ERROR) ; 


} 

} 

else { 
end_error(icffptr, prtfptr, comm_fdbk) ; 
exit (ERROR) ; 

} 


} 


strncpy(itmreq_icf_o.itmno, "99999", 5); 
if (send_item_number(icffptr) == NOERROR) { 
print_request(prtfptr) ; 
strncpy(ending_message.reason, "Normal", 6); 
Rwrite (prtfptr, &blank_line, sizeof (blank_line)); 
_Rwrite (prtfptr, &ending message, sizeof (ending message) ); 
_Rclose(icffptr) ; 
Rclose(prtfptr) ; 


exit (NOERROR) ; 
} 
else { 
end_error(icffptr, prtfptr, comm_fdbk); 
exit (ERROR) ; 
} 
} 
oO 
[Beacon nnn no-one ne nn nnn nn nn nnn en nn en ee en ne ne ene ne eee */ 
/* Evoke the target program on the target system identified by the x*/ 
/* program named in “evoke_icf_o.pgm" and in the library named in */ 
/* "evoke_icf_o.lib". The user-id and password used to gain access x*/ 
/* to the target system is contained in “evoke_icf_O.usr" and */ 
/* “evoke_icf_o.pwd", respectively. If an error occurs, this program +*/ 
/* will end. */ 
[keene nnn nnn nen nn nn nn nn nn on enn enn en nee nn ee ee ne nee eee eee */ 


evoke_target(_RFILE *icffptr) 

{ 
strncpy(evoke_icf_o.pgm, "ASYNCTCCL ", 10); 
strncpy(evoke_icf_o.lib, "ASYNLIBC ", 10); 
strncpy(evoke_icf_o.usr, "ASYNCUSR ", 10); 
strncpy(evoke_icf_o.pwd, "ASYNCPWD ", 10); 


Figure F-11 (Part 3 of 6). ILE C/400 Inquiry Example — Source Program 
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_Rformat(icffptr, "EVOKE ub 

_Rpgmdev(icffptr, "ICFOO ") 5 

_Rwrite (icffptr, &evoke_icf_o, sizeof (evoke_icf_o)); 
return(check_error()); 


/* This routine processes an array to simulate the reading of a data */ 
/* base or display file to get the item number to send to the target */ 
/* system. The write will send the item number (itmno) to the target */ 


/* system and then invite it to send. */ 
[Benen nnn nn nnn enn nn nn nn nnn nn en en en ee ene eee ee */ 
send_item_number(_RFILE *icffptr) 
{ 
_Rformat(icffptr, "ITMREQ  "); 
_Rwrite(icffptr, &itmreq_icf_o, sizeof(itmreq_icf_o)); 
return(check_error()); 
} 
[keene nnn nnn n-ne nn nn nn nn nn nnn nn nn en en ee ne nee eee ee */ 


/* This read-from-invited-devices is to receive the item description */ 
/* and quantity. Using a read-from-invited-devices (and the time value */ 
/* specified on the waitrcd parameter) prevents waiting indefinitely on */ 
/* the read statement. The 'read' statement refers to the file name */ 
/* ‘cmnfils' to be able to do a 'read-from-invited-devices' which is x/ 


/* required to get the timer to interrupt the 'read'. Since record- x/ 
/* identifying characters were not used for the formats in the file, */ 
/* the 'itmrec' format was placed first in the file and will receive */ 
/* the input from the 'read cmnfils' statement. */ 
[keno n nnn noone nn nn nn nn nnn enn een enn en ee nen enn eee eee */ 
get_item_info(_RFILE *icffptr) 
{ 
_Rreadindv(icffptr, &itmrec_icf_i, sizeof(itmrec_icf_i), _ DFT); 
return(check_timeout()) ; 
} 
[ke eon nnn nono nen nnn nn nn en nnn enn ee nn ee ee ne nee ee eee */ 
/* Check for terminating error. If the major return code is greater */ 
/* than or equal to 03, then the program ends. x*/ 
[keen nnn nnn nnn nnn nnn nn nn nn nnn nn nn enn en ee nen ee neo eee */ 
check_error() 
{ 
if (strncmp(_Maj_Min_rc.major_rc, "03", 2) == -1) /* Major < 03 */ 
return (NOERROR) ; 
else /* Major >= 03 */ 
return(ERROR) ; 
} 
[Benen nnn none -n n  nn n  nn nn n enn e n een ee ee nneeeeeee */ 
/* Check for timeout on read-from-invited-program-devices operation. x/ 
/* If a return code greater than or equal to 0310 was received, then */ 
/* the program ends. x/ 
[Been n nnn nnn nn nn nn nnn nn enn nn en ee en ne nee nee eee */ 
check_timeout () 
{ 
if (strncmp(_Maj_Min_rc.major_rc, "03", 2) == 1) /* Major > 03 */ 
return(ERROR) ; 
else 
if (strncmp(_Maj_Min_rc.major_rc, "03", 2) == 0) /* Major = 03 */ 
if (strncmp(_Maj_Min_rc.minor_rc, "10", 2) == -1) /* Minor < 10 */ 


return (NOERROR) ; 
Figure F-11 (Part 4 of 6). ILE C/400 Inquiry Example — Source Program 
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void end_error(_ 


{ 


} 


void initialize _| 


{ 


el 


print 


_error( 


else 


return(ERROR) ; 


se 
return (NOERROR) ; 


prtfptr, comm_fdbk) ; 


strncpy(ending_message.reason, "ERROR!", 6); 


_Rwrite (prt 
_Rwrite (prt 
_Rclose(icffptr); 
_Rclose(prtfptr) ; 


strnc 


strnc 
strnc 
strnc 
strnc 


strnc 
strnc 
strnc 


strnc 
strnc 
strnc 
strnc 


strnc 
strnc 
strnc 
strnc 
strnc 


strnc 
strnc 
strnc 
strnc 
strnc 
strnc 
strnc 
strnc 
strnc 
strnc 


strnc 
strnc 
strnc 
strnc 


py(receive_message 
py(receive_message 
py(receive_message 
py(receive_message 
py(receive_message 


py(blank_line.fillerl, " 
strncpy(blank_line.filler2, 


py(heading_one.report_type, 
py(heading_one.main_tit 
py(heading_one.spaces, 
py(heading_one. filler, 


py(send_message.pgmnam, 
py(send_message.sndmsg, 
py(send_message. filler, 
py(send_message.itmnum, 


-pgmnam, 
.recmsg, 


py(return_code.pgmnam, 
py(return_code.rtnmsg, 
py(return_code.slash, 
py(return_code.spaces, 
py(return_code.]paren, 
py(return_code.rparen, 
py(return_code. filler, 
py(return_code.major, 
py(return_code.minor, 
py(return_code.pgmdev, 


py(ending_message.endmsg, 
py(ending_message.rsnhdg, "Reason = ", 9); 
py(ending_message.spaces, 
py(ending_message.reason, "------ Bl) 


fptr, &blank_line, sizeof (blank_line)); 


fptr, &ending message, sizeof (ending message) ); 


print_fields(_RFILE *prtfptr) 


blank_line. filler 


le, "  C/400 Program Example 
blank_line. filler 
blank_line. filler 


blank_line. filler 
blank_line. filler 


"ASYNCSC - ", 10); 
"Item Number SENT 
blank_line.fillerl, 28); 


send_message.pgmnam, 10); 
"xk Major/Minor Return Code: 


"1", Us 


", 5)3 


send_message.pgmnam, 10); 

"Info. RECEIVED from Target: ", 30); 
.spaces, " ", 3); 
-itmdsc, " 
.itmqty, "----- Maer ib) 


blank_line.fillerl, 22); 


void print_heading(_RFILE *prtfptr) 


{ 


_Rwrite (prtfptr, &heading_one, sizeof (heading_one) 
_Rwrite (prtfptr, &heading_two, sizeof(heading_two) 
_Rwrite (prtfptr, &blank_line, 


} 


sizeof (blank_line)); 


/* Minor >= 10 */ 


/* Major < 03 */ 


RFILE *icffptr, RFILE *prtfptr, _XXIOFB_T *comm_fdbk) 


Noneh)s 


"Source Transaction Log", 22); 


", 27)3 


py(heading two.sub title, "Asynchronous Communications", 27); 
py(heading_two.spaces, 
py(heading_two.filler, 


", 30); 


", 30); 


"eee Source Program Ended *******", 36); 
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[Beacon nnn nn nono enn nnn nn nn nn nn nn nn en en ee nen ee nee 
void print_request (_RFILE *prtfptr) 
{ 
strncpy(send_message.itmnum, itmreq_icf_o.itmno, 5); 
_Rwrite (prtfptr, &send_message, sizeof (send_message) ); 
} 
[keene nono nnn nn nn nn nn nn enn nn nen ee ee en ee eee 
/* Print received transaction to print file. 
[keene nnn nnn n-ne nn nn nn nn nn en nn enn nn enn ee ee ne nee ene 
void print_received(_RFILE *prtfptr) 
{ 
strncpy(receive_message.itmdsc, itmrec_icf_i.itmdsc, 25); 
strncpy(receive_message.itmqty, itmrec_icf_i.itmqty, 5); 
_Rwrite (prtfptr, &receive message, sizeof(receive_message)); 
_Rwrite (prtfptr, &blank_line, sizeof(blank_line)); 
} 
[keen n none no-no nn  nn n nn  n  nn nn een en eee 


void print_error(_RFILE *prtfptr, _XXIOFB_T *comm_fdbk) 
{ 
strncpy(return_code.major, _Maj_Min_rc.major_rc, 2); 
strncpy(return_code.minor, _Maj_Min_rc.minor_rc, 2); 


strncpy(return_code.pgmdev, comm_fdbk->dev_name, 10); 
_Rwrite (prtfptr, &return_code, sizeof(return_code)); 


} 


*/ 
*/ 


*/ 
x/ 
*/ 


*/ 
*/ 


Figure F-11 (Part 6 of 6). ILE C/400 Inquiry Example — Source Program 


ILE C/400 Target Program: The following describes an 


ILE C/400 asynchronous target program. 


Program Files: The ILE C/400 target program uses the fol- 


lowing files: 


CMNFILR'_ An ICF file used to send records to and receive 


records from the source program. 


QPRINT = An AS/400 printer file that is used to print 
records, both sent and received, as well as 
major and minor ICF return codes. 


DDS Source: Figure F-12 on page F-38 shows the DDS 
keywords that are used in the ICF file. (QSYSPRT is a 
program-described file; no DDS is required.) 
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Data Description Source 


100 BRKKKK KKK ERK KKK KER RK ERK KERR KEE RKK EKER ERK RE RKKERREKER KERR KEKE EKER EKER 
200 Ax * 
300 Ax ICF communications file used by the Target System to * 
400 Ax send/receive interactively with the Source System. * 
500 Ax * 
600 BR KKKKK KKK ERK KER KEKE KKK ERK KERR RK RRR KERR KERR RRR REE KEE RRA RERKERRRER 
700 Ax 
800 A R ITMREQ 
900 A ITMNO 5A 
1000 Ax 
1100 A R ITMREC 
1200 A INVITE 
1300 A ITMDSC 25A 
1400 A ITMQTY 5S 
1500 Ax 
1600 A R INVITE 
1700 A INVITE 
eee * * END OF SOURCE ** * * 
5738SS1 V2R1MO 910524 Data Description ASYNLIBC/CMNFILR 1/02/91 11:22:42 Page 2 
Expanded Source 
Field Buffer position 
SEQNBR: sass Have suaiDins-ce Pais ce Qcwe heia ee Sete teas Ae cites Dey ates «Ont ef ewan? wgmetinedso length Out In 
800 R ITMREQ 
900 ITMNO 5A B 5 1 1 
1100 R_ ITMREC INVITE 
1300 ITMDSC 25A B 25 1 1 
1400 ITMQTY 5S OB 5 26 26 
1600 R INVITE INVITE 
*x*x*x* END OF EXPANDED SOURCE ** * * * 
5738SS1 V2R1MO 910524 Data Description ASYNLIBC/CMNFILR 1/02/91 11:22:42 Page 3 
Message Summary 
Total Informationa Warning Error Severe 
(0-9) (10-19) (20-29) (30-99) 
0 0 0 0 0 
* CPC7301 00 Message... 2.3: File CMNFILR created in library ASYNLIBC. 
**e**e*e* END OF COMPILATION ** * * 


Figure F-12. DDS Source for ICF File CMNFILR, C/400 Target Program 


ICF File Creation and Program Device Entry Definition: 
The command needed to create the ICF file is: 


CRTICFF — FILE(ASYNLIBC/CMNFILR) 
SRCFILE (ASYNLIBC/QDDSSRC) 
ACQPGMDEV (*NONE) 
MAXPGMDEV(2) WAITRCD(30) 


The following commands are needed to define the program 
device entry and to direct the target program to the proper 
ICF file: 


OVRICFDEVE PGMDEV(ICF00) 

RMTLOCNAME (*REQUESTER) 
FILE(CMNFILR) 
TOFILE(ASYNLIBC/CMNFILR) 


OVRICFF 


Print File Creation and Definition: lf the print file, 
QPRINT, does not already exist on the target system, it will 
need to be created before running the C/400 program 
example. The command needed to create the print file is: 
CRTPRTF FILE(ASYNLIBC/QPRINT) 

TEXT('Printer File for Asynchronous 

program examples. ') 
REPLACE (*NO) 


The output queque, ASYNLIBC/ASYNC, is created by the 
command: 


CRTOUTQ OUTQ(ASYNLIBC/ASYNC) 
TEXT('Target System''s asynchronous 


ASYNC output queue.') 
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The following command is needed to direct the printer output 
to the proper print file and output queue: 


OVRPRTF — FILE(QPRINT) TOFILE(ASYNLIBC/QPRINT) 
OUTQ(ASYNLIBC/ASYNC) 


Program Explanation: The following describes the struc- 
ture of the program example shown in Figure F-13 on 

page F-40. The ICF file used in this example uses 
externally described data formats (DDS) defined by the user. 
The reference letters in the figure correspond to those in the 
following description. 


This section declares the structure for the record 
formats in the ICF file. CMNFILR is the name of the 
ICF file used to send records to and receive records 
from the target program. 


The files used in the program are opened at the begin- 
ning of the program and the ICF program device is 
explicitly acquired since the ACQPGMDEV parameter 
was specified as “NONE on the CRTICFF command. 


This section declares the structures for writing the fol- 
lowing information to the printer file, QPRINT: 


e Item number 

¢ Description 

¢ Quantity 

¢ Major/minor return code 
e Program device 


This section opens the ICF file, CMNFILR, for 
input/output and the printer file, QPRINT, for output. 


[J Item numbers are read until an error occurs or the 
number 99999 is received, signifying the source 
program is finished with the transaction. 


The program device is retrieved from the input/output 
feedback area. 


EJ This section sets the input/output feedback area pointer, 
and the program device, ICFOO, is explicitly acquired. 


Ey The program device, ICFOO, is invited. 
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/* This is the target program that will perform the ICF receive/send */ 
/* function with the source system's program. It will use arrays to */ 


/* simulate the retrieval of data from a data base file, using the */ 
/* ‘itmno' sent from the source system to index into the arrays to */ 
/* retrieve the appropriate item description and quantity. */ 
[We eeeecc eee ac chen eet cheese seen te eee eee he cee eee nee eee */ 
#define NOERROR 0 /* No error occured */ 

#define ERROR 1 /* An error occured */ 
#include <recio.h> /* Record I/0 header */ 
#include <stdio.h> /* Standard I/0 header */ 
#include <stddef.h> /* Standard definitions */ 
#include <stdlib.h> /* General utilities */ 
#include <string.h> /* String handling utilities */ 
#include <xxfdbk.h> /* Feedback area structures */ 
fResssshecsec sess sc sent et uesees ce see eee ssc erst See see seesee sl eeseeseoss */ 
/* Define the ICF file's structure */ 
Pei ee oe Geta eee es doe t awe ee eases omen asus acne eee cere eeeeeecee les */ 
struct { 


char itmno??(5??); 
} itmreq_icf_i; 


struct { 
char itmdsc??(25??); 
char itmqty??(5??); 
} itmrec_icf_o; 


fReesS ae ecs ees ees sehen setoeese ence see ese cee s ee ees enna tesa neo */ 
/* Define structures used to write to the print file. */ 
Petes oe Gates eee ee Gee eee Meet es eee ees la eee cores sence eees las */ 
struct { 


char fillerl??(37??); 
char filler2??(36??); 
} blank_line; 


struct { 
char report_type??(22??); /* Report Type (ie. Target Transaction Log ) */ 
char spaces??(14??); 
char main_title??(272?); /* Main Title */ 
char filler??(10??); 


} heading_one; 


struct { 
char spaces?? (3627); 
char sub _title??(27??); /* Sub-title */ 
char filler??(10??); 


} heading_two; 


struct { 
char pgmnam??(10??); /* Program Name */ 
char recmsg??(30??); /* Received Message Title */ 
char itmnum??(05??); /* Item Number */ 


char filler??(28??); 
} receive _message; 
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struct { 


char pgmnam??(10??); /* 
char sndmsg??(30??); /* 
char itmdsc??(25??); /* 
char spaces??(03??); 
char itmqty??(05??); /* 
} send_message; 
struct { 
char pgmnam??(10??); /* 
char rtnmsg??(30??); /* 
char major??(02??); /* 
char slash??(01??); /* 
char minor??(02??); /* 
char spaces??(05??); 
char lparen??(01??); /* 
char pgmdev??(10??); /* 
char rparen??(01??); /* 


char filler??(11??); 
} return_code; 


struct { 
char endmsg??(36??); /* 
char spaces??(20??); 
char rsnhdg??(11??); /* 
char reason??(06??); /* 
} ending_message; 


Program Name */ 
Send Message Title */ 
Item Description */ 


Item Quantity «/ 


Program Name */ 

Return Code Message Title */ 
Major Code */ 

slash */ 

Minor Code */ 


left parenthesis */ 


Program Device, from feedback area */ 
right parenthesis */ 


Ending Message Title */ 


Reason Heading */ 
Reason (Normal or ERROR) */ 


[Roose essere esecs eee chose ees eee eee Seeie eee eee bape esrb ee ese ee etes */ 
/* Declare array that contains the description of the items. */ 
[RiSe eee ees eee e Gee ee eee ee eee ee ee eee en teebesete */ 


static char *itmdes??(20??) = { 


"There has be to a FIRST. ", 


"Anyone for SECONDS? 
"THREE's a crowd. 
"FOURTH down ... 
"Plead the FIFTH. 
"SIXTH sense ... 
"SEVENTH Heaven ... 
"EIGHT is enough. 


"Cat with NINE lives ... 

"The TEN Commandments ... 
"The ELEVENTH of March ... 
"Cheaper by the DOZEN ... 


"The BAKER'S DOZEN ... 


"FOURTEENTH of June ... 
"FIFTEEN French horns ... 


"Sweet SIXTEEN and ??? 
"Sour SEVENTEEN ... 

"Graduate at EIGHTEEN. 
"Freshman again at 19. 


"The TWENTIETH Century ... 


}; 
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/* Declare array that contains the quantity of the relative item in the */ 
/* itmdes array. */ 


static char *itmqnt??(20??) = {"00951", "00375", "00200", "01027", "00056", 
"00450", "05798", "07731", "09843", "76360", 
"01259", "08399", "00087", "12004", "00038", 
"03867", "18503", "87370", "26589", "58217" 


}; 


int get_item_number(_RFILE *); 

int send_item_info(_RFILE *); 

int check_error(void) ; 

int check_timeout (void) ; 

void initialize_print_fields(_RFILE *); 
void print_heading(_RFILE *); 

void print_received(_RFILE *); 

void print_sent(_RFILE *); 

void print_error(_RFILE *, _XXIOFB_T *); 


main() 
{ 
_XXIOFB_T *comm_fdbk; /* Ptr to common I/0 feedback */ 
_RFILE *icffptr; /* Ptr to ICF file */ 
_RFILE *prtfptr; /* Ptr to print file */ 
pe Week Se eee ee ee ae ee ee, ee */ 
/* Open a binary file for input and output. Writes (output) to */ 
/* the file occur at the end of the file (append). */ 
78 ee ee ee RO ee A ee ee ee ee ee */ 
if ((icffptr = _Ropen("CMNFILR", “ar+")) == NULL) 
exit (ERROR) ; 
PR i Oe ee eR eR ae ae */ 
/* Create a binary file for writing or clear the existing file. */ 
Pe a es ee a Sa i a ee: ue le Oe ee ee */ 
/* Open printer file: */ 
/* Keyword parameter, type, must be "record". */ 
/* Keyword parameter, Irecl, is required for program-described */ 
/* printer files. */ 
PR ee Oe a as ee ee ee */ 
if ((prtfptr = Ropen("QPRINT", "wr lrecl=132")) == NULL) { 
_Rclose(icffptr) ; 
exit (ERROR) ; 
} 
initialize_print_fields(prtfptr) ; 
comm_fdbk = Riofbk(icffptr); 


_Racquire(icffptr, "ICF0O ie 

if (check_error() == ERROR) { 
print_error(prtfptr, comm_fdbk); 
strncpy(ending_message.reason, "Error-", 6); 

Rwrite (prtfptr, &ending_message, sizeof (ending _message)); 

_Rclose(icffptr) ; 

_Rclose(prtfptr) ; 

exit (ERROR) ; 


} 
Figure F-13 (Part 3 of 7). ILE C/400 Inquiry Example — Target Program 
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print_heading(prtfptr) ; 


_Rformat(icffptr, "INVITE ")3 
_Rpgmdev(icffptr, "ICFOO 5 
_Rwrite (icffptr, NULL, 0); 

if (check_error() == NOERROR) 


while (1) { 
if (get_item_number(icffptr) == ERROR) { 
print_error(prtfptr, comm_fdbk) ; 


break; 
} 
else { 
print_received(prtfptr) ; 
Pe Cotes EE a Fae, See a a a a ae, BS Re Oe as */ 
/* When the 'itmno' field has a value of '99999', x/ 
/* the source system has no more requests. */ 
ee ee ee ae ee ee ee */ 
if (strncmp(itmreq_icf_i.itmno, "99999", 5) == 0) { 
strncpy(ending_message.reason, "Normal", 6); 
break; 
} 
else 
if (send_item_info(icffptr) == ERROR) { 
print_error(prtfptr, comm_fdbk); 
strncpy(ending_message.reason, "ERROR!", 6); 
break; 
} 
else 
print_sent(prtfptr) ; 
} 


} 
else 
print_error(prtfptr, comm_fdbk) ; 


_Rwrite (prtfptr, &blank_line, sizeof (blank_line)); 
_Rwrite (prtfptr, &ending_message, sizeof (ending_message)); 
_Rclose(icffptr) ; 
_Rclose(prtfptr) ; 
} 
fete teeta sa seene esos ene ee ae een eee as see tee ge asee sens chee */ 
/* This read-from-program-devices is to receive the itmno from the */ 
/* source system. Using a read-from-invited-devices (and the timer */ 


/* value specified on the waitrcd parameter of the ICF file) prevents */ 
/* waiting indefinitely on the 'read' statement. The read statement x/ 
/* refers to the file name 'cmnfilr' to be able to do a 'read-from- */ 
/* invited-device' which is required to get the timer interrupt on the */ 
/* 'read'. On successful completion, the 'read' will put the data into */ 
/* the first format in the ICF file since no record-identifying codes */ 
/* were used for the formats on the input specifications. */ 
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get_item_number(_RFILE *icffptr) 


{ 
_Rreadindv(icffptr, &itmreq_icf_i, sizeof(itmreq_icf_i), __DFT); 
return(check_timeout()); 
} 
[ Per eesnetse bese eco bench See te ees eect eee ee eebe eee eee see’: */ 
/* This is the routine processes the arrays to retrieve the item */ 


/* description and quantity to be sent back to the source system. The */ 
/* item number received is converted to an integer and then decremented */ 


/* by one to get the correct position in the arrays. */ 
] $e dee cae ne eee ane be newt decane neue acensent sung sae aseneeteeoceasenes */ 
send_item_info(_RFILE *icffptr) 
{ 
int item_number; 
jtem_number = atoi(itmreq_icf_i.itmno) - 1; 
strncpy(itmrec_icf_o.itmdsc, itmdes??(item_number??), 25); 
strncpy(itmrec_icf_o.itmqty, itmqnt??(item_number??), 5); 
_Rformat(icffptr, "ITMREC mys 
_Rwrite (icffptr, &itmrec_icf_o, sizeof(itmrec_icf_o)); 
return(check_error()); 
} 
[Reese sescadeeees teeth e scenes eas ee cebess Gece as eeeeei cece atmeeeseees ins */ 
/* Check for terminating error. If the major return code is greater x/ 
/* than or equal to 03, then the program ends. */ 
[ivan dence be tee bee reece eee eee eee bese eee eee */ 
check_error() 
{ 
if (strncmp(_Maj_Min_rc.major_rc, "03", 2) == -1) 
return (NOERROR) ; 
else 
return(ERROR) ; 
} 
Jeep ens ne te eecbsensethedseusendetadeeeadenéwandeee aden se cudestaenes */ 
/* Check for timeout on read-from-invited-program-devices operation. */ 
/* If a return code greater than or equal to 0310 was received, then */ 
/* the program ends. */ 
fetes tereeed denen redlee bese enue abe cee dente bese deena eee eee */ 
check_timeout () 
{ 
if (strncmp(_Maj_Min_rc.major_rc, "03", 2) == 1) /* Major > 03 */ 
return(ERROR) ; 
else 
if (strncmp( Maj Min _rc.major_rc, "03", 2) == 0) /* Major = 03 */ 
if (strncmp(_Maj_Min_rc.minor_rc, "10", 2) == -1) /* Minor < 10 */ 
return (NOERROR) ; 
else /* Minor >= 03 */ 
return(ERROR) ; 
return(NOERROR) ; /* Major < 03 */ 
} 
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void initialize_print_fi 
{ 
strncpy(blank_line.f 
strncpy(blank_line.f 


strncpy(heading_one. 
strncpy (heading_one 
strncpy(heading_one. 
strncpy(heading_one. 


strncpy(heading_two. 
strncpy(heading_two. 
strncpy(heading_two. 


elds(_RFILE *prtfptr) 


illerl, 
iller2, blank_line.fil 


nS 37); 
erl, 36); 


report_type, "Target Transaction Log", 22); 


-main_title, "  C/400 


spaces, blank_line.fil 
filler, blank_line.fil 


sub_title, 
spaces, blank_line.fil 
filler, blank_line.fil 


Program Example ", 27); 
erl, 14); 
erl, 10); 


"Asynchronous Communications", 27); 


erl, 36); 
erl, 10); 


strncpy(receive_message.pgmnam, 
strncpy(receive_message.recmsg, 
strncpy(receive_message.filler, 
strncpy(receive_message.itmnum, 


"ASYNCTC --", 10); 

" Item RECEIVED from Source: 
blank_line.fillerl, 28); 

|| en Me 5); 


", 30); 


strncpy(send_message.pgmnam, receive_message.pgmnam, 10); 


strncpy(send_message.sndmsg, 
strncpy(send_message.spaces, " 


strncpy(send_message.itmdsc, "- 
strncpy(send_message.itmqty, "- 


Item Info. SENT to Source: ", 30); 
m5 3); 


strncpy(return_code.pgmnam, receive_message.pgmnam, 10); 


strncpy(return_code.rtnmsg, "** Major/Minor Return Code: 


strncpy(return_code.slash, '"/" 
strncpy(return_code.spaces, " 


strncpy(return_code.]lparen, "(", 
strncpy(return_code.rparen, ")", 
strncpy(return_code.filler, " ** 


strncpy(return_code.major, 
strncpy(return_code.minor, 


strncpy(return_code.pgmdev, "-- 


strncpy(ending_message.endmsg, 
strncpy(ending_message.rsnhdg, 
strncpy(ending_message.spaces, 
strncpy(ending_message.reason, 


void print_heading(_RFILE *prtfptr) 
{ 
_Rwrite (prtfptr, &heading_one, 
_Rwrite (prtfptr, &heading_two, 
_Rwrite (prtfptr, &blank_line, 


", 30); 
wel) 


HO) 
1); 
1); 
", 11); 
meat, 2); 
meat, 2); 
SSReeRS> ", 10); 
"xeeeeee Target Program Ended *******", 36); 
"* Reason = ", 11); 
blank_line.fillerl, 20); 
Naannn- on 6); 


sizeof (heading_one)); 
sizeof (heading_two)); 
sizeof (blank_line)); 
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void print_received(_RFILE *prtfptr) 


strncpy(receive_message.itmnum, itmreq_icf_i.itmno, 5); 
_Rwrite (prtfptr, &receive_message, sizeof(receive_message)); 


} 
pPSSsSo Sees ease sss chee ee see sees cess hees Si eets et oes ase sce set egal ee 
/* Print sent transaction to print file. 
[Wee seceecen heros ee seen ech sae row oe a seeen shea sce se eee se 
void print_sent(_RFILE *prtfptr) 
{ 
strncpy(send_message.itmdsc, itmrec_icf_o.itmdsc, 25); 
strncpy(send_message.itmqty, itmrec_icf_o.itmqty, 5); 
_Rwrite (prtfptr, &send_message, sizeof (send_message)); 
_Rwrite (prtfptr, &blank_line, sizeof(blank_line)); 
} 
[Weer ese ae eee be pease ep eee pee eae epee eee epee se 


void print_error(_RFILE *prtfptr, _XXIOFB_T *comm_fdbk) 
{ 
strncpy(return_code.major, Maj _Min_rc.major_rc, 2); 
strncpy(return_code.minor, Maj _Min_rc.minor_rc, 2); 


strncpy(return_code.pgmdev, comm_fdbk->dev_name, 10); 
_Rwrite (prtfptr, &return_code, sizeof(return_code)); 


} 
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*/ 
*/ 


*/ 
*/ 
*/ 


*/ 
*/ 
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Create Device Description (Asynchronous) (CRTDEVASC) 
*SVCIN from a specific address example E-6 
*SVCIN from any address example E-7, E-8 
*SVCOUT to a specific address example E-8 
*SVCOUT to PAD example E-9 
nonswitched example E-2 
permanent virtual circuit (PVC) example E-5 
switched example E-3 
Create Intersystem Communications Function File 
(CRTICFF) 6-1 
Create Line Description (Asynchronous) (CRTLINASC) 
matching parameters 2-1 
switched example E-2, E-3 
Create Line Description (X.25) (CRTLINX25) E-4 
CRTCFGL (Create Configuration List) 3-7 
CRTCTLASC (Create Controller Description (Asynchro- 
nous)) 
*SVCIN from a specific address example E-6 
*SVCIN from any address example E-7 
*SVCOUT to a specific address example E-8 
*SVCOUT to PAD example E-9 
emulating a PAD 3-1 
nonswitched example E-2 
permanent virtual circuit (PVC) example E-5 
specifying permanent virtual circuit (PVC) 2-2 
specifying switched virtual circuit (SVC) 2-2 
switched example E-3 
CRTDEVASC (Create Device Description (Asynchronous)) 
*SVCIN from a specific address example E-6 
*SVCIN from any address example E-7, E-8 
*SVCOUT to a specific address example E-8 
*SVCOUT to PAD example E-9 
nonswitched example E-2 
permanent virtual circuit (PVC) example E-5 
switched example E-3 
CRTICFF (Create Intersystem Communications Function 
File) 6-1 
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command, CL (continued) 
CRTLINASC (Create Line Description (Asynchronous)) 
matching parameters 2-1 
nonswitched example E-2 
switched example E-3 
CRTLINX25 (Create Line Description (X.25)) E-4 
Delete File (DLTF) 6-1 
Display File Description (DSPFD) 6-1 
Display File Field Description (DSPFFD) 6-1 
DLTF (Delete File) 6-1 
DSPFD (Display File Description) 6-1 
DSPFFD (Display File Field Description) 6-1 
Override Intersystem Communications Function Device 
Entry (OVRICFDEVE) 6-1 
Override Intersystem Communications Function File 
(OVRICFF) 6-1 
OVRICFDEVE (Override Intersystem Communications 
Function Device Entry) 6-1 
OVRICFF (Override Intersystem Communications Func- 
tion File) 6-1 
Remove Intersystem Communications Function Device 
Entry (RMVICFDEVE) 6-1 
RMVICFDEVE (Remove Intersystem Communications 
Function Device Entry) 6-1 
Start ITF (STRITF) 8-1 
STRITF (Start ITF) 8-1 
Vary Configuration (VRYCFG) 5-1 
VRYCFG (Vary Configuration) 5-1 
command, PAD 
command mode 3-3 
CONNECT 3-3 
CONTINUE 3-4 
data transfer mode 3-3 
definition 3-3 
DISCONNECT 3-3 
disconnecting communications 3-3 
examples 
Par? 3-4 
Set 3-4 
Set? 3-4 
PAD escape sequence 3-4 
PAD prompt 3-4 
PAR? 3-4 
RESET 3-3 
SET 3-4 
SET? 3-4 
STATUS 3-3 
communication session 
definition 6-2 
starting 6-2 
communications 
See asynchronous communications 
communications configuration 
See also Communications Configuration 
commands 4-1 


communications operation 6-2—6-8 
acquire 6-3 
cancel invite 6-6 
description 6-2 
detach 6-6 
end-of-session 6-7 
evoke 6-3 
fail 6-6 
get attributes 6-6 
invite 6-5 
open 6-3 
read 6-5 
read-from-invited-program-devices 6-5 
release 6-7 
timer 6-6 
write 6-4 
communications performance 
See also Communications Management 
asynchronous overhead 7-2 
buffer size 7-2 
data buffers using XOFF characters 7-2 
communications session 
definition 6-3 
ending 6-7 
starting 6-3 
configuration 
varying 5-1 
configuration communications 
commands 4-1 
configuration example 
asynchronous communications using X.25 PSDN_ E-4 
nonswitched asynchronous communications E-1 
switched asynchronous communications E-2 
configuration list 
creating 3-7 
configuring 
asynchronous communication support 4-1 
control character 
sending 8-6 
controller description 
asynchronous 2-1 
creating 
for incoming calls (*“SVCIN) using generic 
controller E-7 
for incoming calls (*“SVCIN) using X.25 PSDN_ E-6 
for outgoing calls (*“SVCOUT) using PAD 
emulation E-9 
for outgoing calls (*“SVCOUT) using X.25 PSDN'_ E-8 
for permanent virtual circuit (“PVC) using X.25 
PSDN_ E-5 
Create Configuration List (CRTCFGL) command 3-7 
See also Communications Configuration 
Create Controller Description (Asynchronous) 
(CRTCTLASC) command 
emulating a PAD 3-1 
examples 
*SVCIN from any address example E-7 
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(CRTCTLASC) command (continued) 
examples (continued) 
for incoming calls (*SVCIN) using generic 
controller E-7 
for incoming calls (*SVCIN) using X.25 PSDN_ E-6 
for outgoing calls (*“SVCOUT) using PAD 
emulation E-9 
for outgoing calls ("“SVCOUT) using X.25 PSDN_ E-8 
for permanent virtual circuit (*“PVC) using X.25 
PSDN_ E-5 
using nonswitched asynchronous communications E-2 
using switched asynchronous communications E-3 
specifying permanent virtual circuit (PVC) 2-2 
specifying switched virtual circuit (SVC) 2-2 
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(CRTDEVASC) command 
examples 
for incoming calls (*SVCIN) using generic device E-7, 
E-8 
for incoming calls (*SVCIN) using X.25 PSDN_ E-6 
for outgoing calls (“SVCOUT) using PAD 
emulation E-9 
for outgoing calls (“SVCOUT) using X.25 PSDN_ E-8 
for permanent virtual circuit (PVC) using X.25 
PSDN_ E-5 
using nonswitched asynchronous communications E-2 
using switched asynchronous communications E-3 


Create Intersystem Communications Function File 


(CRTICFF) command 6-1 


Create Line Description (Asynchronous) (CRTLINASC) 


command 2-1 
examples 
using nonswitched asynchronous communications E-2 
using switched asynchronous communications E-3 


Create Line Description (X.25) (CRTLINX25) command 


examples 
using asynchronous communications over X.25 
PSDN_ E-4 


creating 


configuration list 3-7 

controller description 
*SVCIN from a specific address example E-6 
*SVCIN from any address example E-7 
*SVCOUT to a specific address example E-8 
*SVCOUT to PAD example E-9 
permanent virtual circuit (PVC) example E-5 

device description 
*SVCIN from a specific address example E-6 
*SVCIN from any address example E-7 
*SVCOUT to a specific address example E-8 
*SVCOUT to PAD example E-9 
nonswitched example E-2 
permanent virtual circuit (PVC) example E-5 
switched example E-3 

intersystem communications function (ICF) file 6-1 
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creating (continued) 
line description 
asynchronous 2-1 
nonswitched example E-2 
X.25 E-4 
CRTCFGL (Create Configuration List) command 3-7 
See also Communications Configuration 
CRTCTLASC (Create Controller Description (Asynchro- 
nous)) command 
emulating a PAD 3-1 
examples 
for incoming calls (*“SVCIN) using generic 
controller E-7 
for incoming calls (*“SVCIN) using X.25 PSDN_ E-6 
for outgoing calls (*“SVCOUT) using PAD 
emulation E-9 
for outgoing calls ("SVCOUT) using X.25 PSDN_ E-8 
for permanent virtual circuit (*PVC) using X.25 
PSDN_ E-5 
using nonswitched asynchronous communications E-2 
using switched asynchronous communications E-3 
specifying permanent virtual circuit (PVC) 2-2 
specifying switched virtual circuit (SVC) 2-2 
CRTDEVASC (Create Device Description (Asynchro- 
nous)) command 
examples 
for incoming calls (*“SVCIN) using generic device E-7, 
E-8 
for incoming calls (*“SVCIN) using X.25 PSDN_ E-6 
for outgoing calls ("“SVCOUT) using PAD 
emulation E-9 
for outgoing calls ("SVCOUT) using X.25 PSDN_ E-8 
for permanent virtual circuit (PVC) using X.25 
PSDN_ E-5 
using nonswitched asynchronous communications E-2 
using switched asynchronous communications E-3 
CRTICFF (Create Intersystem Communications Function 
File) command 6-1 
CRTLINASC (Create Line Description (Asynchronous)) 
command 2-1 
examples 
using nonswitched asynchronous communications E-2 
using switched asynchronous communications E-3 
CRTLINX25 (Create Line Description (X.25)) command 
examples 
using asynchronous communications over X.25 
PSDN_ E-4 


D 


data 
receiving 6-5 
requesting 6-5 
sending 6-4 
data buffering 7-2 
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data circuit-terminating equipment (DCE) 
definition 2-2 

data queue 6-6 

Data Set Ready (DSR) signal 2-2 

data terminal equipment (DTE) 
definition 1-1 

data transfer mode 
returning to 3-4 

DCE (data circuit-terminating equipment) 
definition 2-2 

DCE-io-DTE mode 2-2 

DDS keyword A-2 

deferred connection 


definition E-3 
Delete File (DLTF) command 6-1 
deleting 

file 6-1 


detach function 6-6 
device description 

asynchronous 

creating E-2—E-9 

device entry parameter 6-2 
disconnecting 

communications 3-3 
Display File Description (DSPFD) command 6-1 
Display File Field Description (DSPFFD) command 6-1 
displaying 

file description 6-1 

file field description 6-1 
DLTF (Delete File) command 6-1 
DSPFD (Display File Description) command 6-1 
DSPFFD (Display File Field Description) command 6-1 
DSR (Data Set Ready) signal 2-2 
DTE (data terminal equipment) 

definition 1-1 


E 


end-of-session function 6-7 
ending 
session 6-6 
transaction 6-6 
evoke function 
See also DDS Reference 
See also ICF Programming 
coding 6-3 
confirmation of evoke by source program 7-1 
description 6-3 
example 
configuration 
asynchronous communications using X.25 PSDN_ E-4 
nonswitched asynchronous communications E-1 
switched asynchronous communications E-2 
example program 
COBOL/400 source program  F-1 
COBOL/400 target program F-9 


example program (continued) 
FORTRAN/400 
See ICF Programming 
ILE C/400 source program F-29 
ILE C/400 target program F-37 
RPG/400 source program F-15 
RPG/400 target program F-22 


F 


fail function 6-6 


file 

deleting 6-1 

displaying description 6-1 
file field 

displaying 6-1 
file member 

receiving 8-3 

sending 8-3 


file transfer support (FTS) 
See also |ICF Programming 
definition 1-1 
flow control character 7-1 
format 
system-supplied A-2 
format effector 
definition 8-2 
FORTRAN/400 programming language 
example 
See ICF Programming 
table of statements A-1 
FTS (file transfer support) 
See also |ICF Programming 
definition 1-1 
function-management-header function 6-4 


G 


generic controller 
configuration example E-6, E-7 
description E-6 
for SVC-IN connections 2-4 
ID prompt and response 2-5 
generic device 
configuration example E-6 
description E-6 
for SVC-IN connections 2-4 
ID prompt and response 2-5 
get-attributes operation 6-6 


I 

VO feedback area 6-7 
See also ICF Programming 

ICF (intersystem communications function) 
commands 6-1 


ICF (intersystem communications function) (continued) 
definition 2-1 
device entry 
parameters 6-2 
operations A-1 
using 6-1 
ILE C/400 programming language 
source program for inquiry applications F-29 
table of functions A-1 
target program for inquiry applications F-37 
ILE COBOL/400 programming language 
table of procedure statements A-1 
ILE RPG/400 programming language 
table of operation A-1 
incoming switched virtual circuit (SVC-IN) connection 
for packet-switching data network 2-4 
indicator, response 
using 6-7 
input data 
requesting 6-5 
interactive terminal facility (ITF) 
definition 98-1 
displays 
Add Telephone Entries display 8-5 
Send Control Character display 8-6 
Send ITF Password display 8-2 
Start Send/Receive display 8-3 
Use Interactive Terminal Facility (ITF) display 8-1 
Work with ITF Telephone List display 8-5 
end-of-record table specification 8-1 
file members 8-3 
functions 8-2 
network connections 8-1 
receiving OfficeVision documents 8-4 
record length restrictions 8-1 
sending OfficeVision documents 8-4 
starting 8-1 
using 8-1 
International Alphabet (IA-5) C-2 
interrupt handling D-1 
intersystem communications function (ICF) 
commands 6-1 
definition 2-1 
device entry 
parameters 6-2 
operations A-1 
using 6-1 
intersystem communications function (ICF) device entry 
adding 6-1 
changing 6-1 
overriding 6-1 
removing 6-1 
intersystem communications function (ICF) file 


changing 6-1 
creating 6-1 
definition 6-1 
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intersystem communications function (ICF) file (con- 
tinued) 
deleting 6-1 
overriding 6-1 
invite function 6-5 
ITF (interactive terminal facility) 
definition 8-1 
displays 
Add Telephone Entries display 8-5 
Send Control Character display 8-6 
Send ITF Password display 8-2 
Start Send/Receive display 8-3 
Use Interactive Terminal Facility (ITF) display 8-1 
Work with ITF Telephone List display 8-5 
end-of-record table specification 8-1 
file members 8-3 
functions 8-2 
network connections 8-1 
receiving OfficeVision documents 8-4 
record length restrictions 8-1 
sending OfficeVision documents 8-4 


starting 8-1 
using 8-1 
job 


prestarting 7-1 


K 


keyword, DDS A-2 


L 


language operation A-1 
logical record 
definition 7-1 


maximum wait time 
setting 6-6 
message 
See also PAD message 
PAD 3-5 
modem 
Data Set Ready (DSR) signal 2-2 
for nonswitched lines 2-1 
for switched lines 2-1 
switched attached to AS/400 2-1 


N 


non-SNA communications 2-2 
nonswitched line support 2-1 
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O 


OfficeVision document 
receiving 8-3, 8-4 
sending 8-3, 8-4 
Open operation 6-3 
operation 
acquire 6-3 
cancel invite 6-6 
detach 6-6 
end-of-session 6-7 
fail 6-6 
get attributes 6-6 
invite 6-5 
open 6-3 
read 6-5 
read-from-invited-program-devices 6-5 
release 6-7 
timer 6-6 
write 6-4 
Override Intersystem Communications Function Device 
Entry (OVRICFDEVE) command 6-1 
See also ICF Programming 
Override Intersystem Communications Function File 
(OVRICFF) command 6-1 
overriding 
intersystem communications function (ICF) device 
entry 6-1 
intersystem communications function (ICF) file 6-1 
OVRICFDEVE (Override Intersystem Communications 
Function Device Entry) command 6-1 
See also ICF Programming 
OVRICFF (Override Intersystem Communications Func- 
tion File) command 6-1 


Pp 


packet assembler/disassembler (PAD) 
See also PAD support 
definition 1-1 
packet assembler/disassembler support 3-1 
packet-mode host 
definition 2-4 
requests 3-5 
packet-switching data network (PSDN) 
illustration 2-3 
incoming switched virtual circuit (SVC-IN) 
connections 2-4 
interactive terminal facility (ITF) 8-1 
outgoing switched virtual circuit (SVC-OUT) 
connections 2-4 
permanent virtual circuit (PVC) connection 2-4 
switched dial connection to network PAD 2-3 
using 2-3 
PAD (packet assembler/disassembler) 
definition 1-1, 2-4 


PAD command 
command mode 3-3 
CONNECT 3-3 
CONTINUE 3-4 
data transfer mode 3-3 
DISCONNECT 3-3 
disconnecting communications 3-3 
examples 
Par? 3-4 
Set 3-4 
Set? 3-4 
PAD escape sequence 3-4 
PAD prompt 3-4 
PAR? 3-4 
RESET 3-3 
SET 3-4 
SET? 3-4 
STATUS 3-3 
PAD message 
clearing the virtual circuit 3-6 
error 3-5 
examples 3-6 
indication of break 3-5 
invitation to clear 3-5 
packet-mode host 
requests 3-5 
responses 3-6 
parameter indication 3-5 
read 3-5 
responses from the PAD 
Error 3-6 
Indication of Break 3-6 
Parameter Indication 3-6 
set 3-5 
set andread 3-5 
write function-management-header operation 
format 3-6 
sending 3-5 
PAD message identifier 3-4, 3-5 
PAD network address list 4-1 
PAD parameter 
break options 3-2 
changing and reading using PAD messages _ 3-5 
changing values 3-4 
controlling the session 3-2 
current values 3-4 
data forwarding characters 3-2 
descriptions and values 3-2 
discard output 3-2 
echo 3-2 
escape to command mode 3-2 
flow control of PAD 3-3 
line feed insertion after carriage return 3-3 
line folding 3-2 
suppression of service signals 3-2 
unsupported parameters 3-3 


PAD parameter (continued) 
values 3-4 
PAD service signal 3-4 
PAD support 
CCITT recommendations 2-4, 3-1 
commands 3-3 
configuring 3-1 
illustration 3-1 
parameters 3-2 
rotary dial 3-7 
sending data 6-4 
using 3-1 
parameter 
See also PAD parameter 
asynchronous line 2-1 
PAD support 3-2 
permanent virtual circuit (PVC) 
configuration example using E-4 
definition 1-1, 2-2 
switched and nonswitched lines 2-2 
pre-connect status 
resetting 3-3 
prestart job 
See ICF Programming 
prestart job entry 7-1 
prestarting job 7-1 
problem notification 6-6 
program example 
COBOL/400 source program  F-1 
COBOL/400 target program F-9 
FORTRAN/400 
See ICF Programming 
ILE C/400 source program F-29 
ILE C/400 target program F-37 
RPG/400 source program F-15 
RPG/400 target program F-22 
program start request 
for prestart jobs 7-1 
reason codes for rejected B-19 
syntax 6-3 
PSDN (packet-switching data network) 
definition 2-3 
illustration 2-3 
incoming switched virtual circuit (SVC-IN) 
connections 2-4 
interactive terminal facility (ITF) 8-1 
outgoing switched virtual circuit (SVC-OUT) 
connections 2-4 
permanent virtual circuit (PVC) connection 2-4 
using 2-3 
PVC (permanent virtual circuit) 
configuration example using E-4 
definition 1-1, 2-2 
switched and nonswitched lines 2-2 


Index 


QDCXLATE 
See System API Reference 


R 


read operation 


comparison with read-from-invited-program-devices opera- 


tion 6-5 
programming considerations 6-5 
receiving data 6-5 
read-from-invited-program-devices operation 
definition 6-5 
starting 6-5 
receive-fail indicator 6-7 
receiving data 6-5 
release operation 6-7 
remote location list 4-1 
Remove Intersystem Communications Function Device 
Entry (RMVICFDEVE) command 6-1 
removing 
intersystem communications function (ICF) device 
entry 6-1 
requesting input data 6-5 
resetting session to pre-connect status 3-3 
response indicator 
using 6-7 
return code 
detailed descriptions B-1 
processing 6-7 
RMVICFDEVE (Remove Intersystem Communications 
Function Device Entry) command 6-1 
rotary dial function 3-7 
RPG/400 programming language 
source program for inquiry applications F-15 
target program for inquiry applications F-22 


S 


sending 
control character 8-6 
data 6-4 
sense code 
detailed descriptions B-1 
service signal, PAD 3-4 
session 
definition 6-2 
ending 6-7 
starting 6-2 
setting maximum wait time 6-6 
source program 6-3, 6-7 
Start ITF (STRITF) command 8-1 
start-stop line 2-1 
starting 
communications session 6-3 
ITF (interactive terminal facility) 8-1 
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STRITF (Start ITF) command _ 8-1 
SVC (switched virtual circuit) 
definition 1-1 
for incoming calls (*SVCIN) 
configuration example E-6 
using generic controller E-7 
using generic controllers and devices E-6 
using generic device E-7, E-8 
for outgoing calls (*“SVCOUT) 
configuration example E-8 
configuration example using PAD emulation E-9 
switched and nonswitched lines 2-2 
SVC-IN connection 
for generic controllers and devices 2-4 
for packet-switching data network 2-4 
switched line support 2-1 
switched virtual circuit (SVC) 
definition 1-1, 2-2 
for incoming calls (*SVCIN) 
configuration example E-6 
using generic controller E-7 
using generic controllers and devices E-6 
using generic device E-7, E-8 
for outgoing calls (*“SVCOUT) 
configuration example E-8 
configuration example using PAD emulation E-9 
switched and nonswitched lines 2-2 
system-supplied format A-2 


T 


target program 6-3, 6-7 
Telecommunication Standardization Sector (CCITT) 
definition 3-1 
PAD support 2-4 
recommendations 2-4, 3-1 
telephone list 8-5 
timer function 6-6 
transaction 
definition 6-3 
ending 6-6 
starting 6-3 
translation table 
ASCII-to-EBCDIC C-4 
creating using CRTTBL command C-1 
EBCDIC-to-ASCIl C-3 
translating fields using QDCXLATE program C-1 


V 


Vary Configuration (VRYCFG) command 
See also Communications Management 
communicating with a remote system 5-1 
starting asynchronous communications 5-1 

varying 
configuration 5-1 


verifying 
virtual circuit status 3-3 

virtual call 
establishing 3-3 

VRYCFG (Vary Configuration) command 
See also Communications Management 
communicating with a remote system 5-1 
starting asynchronous communications 5-1 


W 


wait time 
setting maximum 6-6 
write function-management-header operation 
flow control characters 7-1 
format of PAD message 3-6 
sending PAD messages 3-5 
using to set and change data characteristics 
changing flow control 6-4 
changing the echo 6-4 
setting parity 6-4 
setting translation mode 6-4 
write operation 
definition 6-4 


X 
X.25 line 

configuring 2-2, 4-1 

DCE-to-DTE mode 2-2 

logical records 7-1 

PAD support 3-1 

receiving data 6-5 

sending data 6-4 

using a packet-switching data network (PSDN) 2-3 
X.25 nonswitched line 

See Communications Configuration 
X.25 switched line 

See Communications Configuration 
X.3 parameter 

See PAD parameter 
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